X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=blobdiff_plain;f=t%2Frpc%2Flist.t;h=93200a453ad4f1905ad980af7be03968a8c966df;hp=6cb9794966a4d51a7d6e428b42171a046d581f19;hb=bb73aedb99734f11a8419f93915b87faf33ac1bf;hpb=0b0bf9111127c9fdad1e456169ec4cdd15b160f9

diff --git a/t/rpc/list.t b/t/rpc/list.t
index 6cb9794..93200a4 100644
--- a/t/rpc/list.t
+++ b/t/rpc/list.t
@@ -1,5 +1,3 @@
-use 5.6.0;
-
 use strict;
 use warnings;
 
@@ -13,9 +11,9 @@ use URI;
 use Test::More;
 use Test::WWW::Mechanize::Catalyst 'RestTest';
 use HTTP::Request::Common;
-use JSON;
+use JSON::MaybeXS;
 
-my $json = JSON->new->utf8;
+my $json = JSON::MaybeXS->new(utf8 => 1);
 
 my $mech = Test::WWW::Mechanize::Catalyst->new;
 ok( my $schema = DBICTest->init_schema(), 'got schema' );
@@ -238,7 +236,7 @@ my $cd_list_url       = "$base/api/rpc/cd/list";
     is( $response->{success}, 'false', 'correct data returned' );
     like(
         $response->{messages}->[0],
-        qr/Attribute \(page\) does not pass the type constraint because: Validation failed for 'Int' (failed )?with value fgdg/,
+        qr/Attribute \(page\) does not pass the type constraint because: Validation failed for 'Int' (failed )?with value (")?fgdg(")?/,
         'correct data returned'
     );
 }
@@ -259,7 +257,7 @@ my $cd_list_url       = "$base/api/rpc/cd/list";
     is( $response->{success}, 'false', 'correct data returned' );
     like(
         $response->{messages}->[0],
-        qr/Attribute \(count\) does not pass the type constraint because: Validation failed for 'Int' (failed )?with value sdsdf/,
+        qr/Attribute \(count\) does not pass the type constraint because: Validation failed for 'Int' (failed )?with value (")?sdsdf(")?/,
         'correct data returned'
     );