Fix relying on exact serialisation for JSON/YAML tests (RT#121901)

[dbsrgits/SQL-Translator.git] / t / 23json.t

diff --git a/t/23json.t b/t/23json.t
index e0148ca..7ed847e 100644 (file)
--- a/t/23json.t
+++ b/t/23json.t
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use Test::More;
-use Test::Differences;
+use Test::Exception;
 use Test::SQL::Translator qw(maybe_plan);
 use SQL::Translator;
 use FindBin '$Bin';
@@ -15,7 +15,8 @@ BEGIN {
 }
 
 my $sqlt_version = $SQL::Translator::VERSION;
-my $json = <<JSON;
+use JSON;
+my $json = from_json(<<JSON);
 {
    "schema" : {
       "procedures" : {},
@@ -103,6 +104,10 @@ my $json = <<JSON;
                   ]
                },
                "person_id" : {
+                  "comments" : [
+                    "field comment 1",
+                    "field comment 2"
+                  ],
                   "data_type" : "INTEGER",
                   "default_value" : null,
                   "is_auto_increment" : 1,
@@ -255,7 +260,8 @@ my $json = <<JSON;
             "name" : "pet_trig",
             "on_table" : "pet",
             "order" : "1",
-            "perform_action_when" : "after"
+            "perform_action_when" : "after",
+            "scope": "row"
          }
       },
       "views" : {
@@ -300,5 +306,5 @@ my $tr = SQL::Translator->new(
 );
 
 my $out;
-ok( $out = $tr->translate, 'Translate SQLite to JSON' );
-eq_or_diff( $out, $json, 'JSON matches expected' );
+lives_ok { $out = from_json($tr->translate) } 'Translate SQLite to JSON';
+is_deeply( $out, $json, 'JSON matches expected' );