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 (file)
--- 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 (file)
--- 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 (file)
--- 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: {}