Switch from JSON to JSON::MaybeXS to get a better choice of JSON parsers.

[catagits/Catalyst-Action-REST.git] / t / jsonp.t

diff --git a/t/jsonp.t b/t/jsonp.t
index 97a77cd..015ee51 100644 (file)
--- a/t/jsonp.t
+++ b/t/jsonp.t
@@ -2,15 +2,12 @@ use strict;
 use warnings;
 use Test::More;
 use FindBin;
+use Test::Requires qw(JSON::MaybeXS);
 
 use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib");
 use Test::Rest;
 use utf8;
 
-eval 'use JSON 2.12';
-plan skip_all => 'Install JSON 2.12 or later to run this test' if ($@);
-
-
 use_ok 'Catalyst::Test', 'Test::Serialize', 'Catalyst::Action::Serialize::JSON';
 
 my $json = JSON->new->utf8;
@@ -19,10 +16,10 @@ for ('text/javascript','application/x-javascript','application/javascript') {
     my $t = Test::Rest->new('content_type' => $_);
     my $monkey_template = { monkey => 'likes chicken!' };
 
-    my $mres = request($t->get(url => '/monkey_get?callback=omnivore'));
+    my $mres = request($t->get(url => '/monkey_get?callback=My_Animal.omnivore'));
     ok( $mres->is_success, 'GET the monkey succeeded' );
 
-    my ($json_param) = $mres->content =~ /^omnivore\((.*)?\);$/;
+    my ($json_param) = $mres->content =~ /^My_Animal.omnivore\((.*)?\);$/;
     is_deeply($json->decode($json_param), $monkey_template, "GET returned the right data");
 }