script.t test checks output of morph script less strictly

grtodd · May 21, 2011 · f64a54a · f64a54a
1 parent 1d1a5d8
commit f64a54a
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 8 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,8 @@
 Revision history for Morpheus
 
 {{$NEXT}}
+        * script.t test checks output of 'morph' script less strictly,
+        now compatible with modern Data::Dumper and JSON versions
 
 0.39    Tue Mar 15, 2011
         * allow 'morph' script to dump nonrefs in json mode

diff --git a/dist.ini b/dist.ini
@@ -1,5 +1,5 @@
 name    = Morpheus
-version = 0.39
+version = 0.40
 author  = Andrei Mishchenko <[email protected]>
 license = Perl_5
 copyright_holder = Yandex LLC

diff --git a/t/script.t b/t/script.t
@@ -26,19 +26,16 @@ is(
 );
 
 $result = qx(bin/morph /foo/bar);
-is(
+like(
     $result,
-    "5\n",
+    qr/^(5|"5")\n$/,
     'morph without arguments prints json'
 );
 
 $result = qx(bin/morph --format=dumper /foo);
-is(
+like(
     $result,
-"{
-  'bar' => 5
-}
-",
+    qr/^\s*{\s*'bar'\s*=>\s*5\s*}\s*$/,
     'morph with dumper format'
 );