From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Tue, 7 Oct 2014 15:14:18 +0000 (+0100)
Subject: Fix JSON and YAML tests if the defaults have been tweaked (RT#98824)
X-Git-Tag: v0.11021~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f2693e35733b682fc641220bb8896f8041f2757;p=dbsrgits%2FSQL-Translator.git

Fix JSON and YAML tests if the defaults have been tweaked (RT#98824)

Some people tweak their JSON (or YAML) modules to format things
differently by default, so roundtrip the expected data through a
load/dump to make sure it's formatted thes same.
---

diff --git a/Changes b/Changes
index 7b6dc0a..95260d9 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Changes for SQL::Translator
  * Fix Oracle producer generating an unnecessary / at the end in case there
    are no triggers
  * Skip HTML tests if CGI is not installed (RT#98027)
+ * Fix JSON and YAML tests if the defaults have been tweaked (RT#98824)
 
 0.11020 2014-09-02
 
diff --git a/t/23json.t b/t/23json.t
index e0148ca..0b063e2 100644
--- a/t/23json.t
+++ b/t/23json.t
@@ -15,7 +15,8 @@ BEGIN {
 }
 
 my $sqlt_version = $SQL::Translator::VERSION;
-my $json = <<JSON;
+use JSON;
+my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
 {
    "schema" : {
       "procedures" : {},
diff --git a/t/24yaml.t b/t/24yaml.t
index 4e54988..08757d9 100644
--- a/t/24yaml.t
+++ b/t/24yaml.t
@@ -13,7 +13,8 @@ BEGIN {
 }
 
 my $sqlt_version = $SQL::Translator::VERSION;
-my $yaml = <<YAML;
+use YAML qw(Dump Load);
+my $yaml = Dump(Load(<<YAML));
 ---
 schema:
   procedures: {}