X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcatalyst-action-deserialize.t;h=8cd13d8510cdae7409e236f5feaaa58766f85f7f;hb=21d3f6aeb5d5150d2709f9a3d0647d21e9d74d9b;hp=ca08fa42ec6f0dbf36e6de7f3856bc77e0544bd4;hpb=ffb4cc7109fd6abe0ac36a25ebce8b3ba1a4a2d0;p=catagits%2FCatalyst-Action-REST.git diff --git a/t/catalyst-action-deserialize.t b/t/catalyst-action-deserialize.t index ca08fa4..8cd13d8 100644 --- a/t/catalyst-action-deserialize.t +++ b/t/catalyst-action-deserialize.t @@ -3,7 +3,6 @@ use warnings; use Test::More tests => 5; use YAML::Syck; use FindBin; -use Data::Dump qw(dump); use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken"); use Test::Rest; @@ -11,18 +10,19 @@ use Test::Rest; # Should use Data::Dumper, via Data::Serializer my $t = Test::Rest->new('content_type' => 'text/x-yaml'); -use_ok 'Catalyst::Test', 'Test::Catalyst::Action::Deserialize'; +use_ok 'Catalyst::Test', 'Test::Catalyst::Action::REST'; +my $url = '/deserialize/test'; -my $res = request($t->put( url => '/test', data => Dump({ kitty => "LouLou" }))); +my $res = request($t->put( url => $url, data => Dump({ kitty => "LouLou" }))); ok( $res->is_success, 'PUT Deserialize request succeeded' ); is( $res->content, "LouLou", "Request returned deserialized data"); my $nt = Test::Rest->new('content_type' => 'text/broken'); -my $bres = request($nt->put( url => '/test', data => Dump({ kitty => "LouLou" }))); +my $bres = request($nt->put( url => $url, data => Dump({ kitty => "LouLou" }))); is( $bres->code, 415, 'PUT on un-useable Deserialize class returns 415'); my $ut = Test::Rest->new('content_type' => 'text/not-happening'); -my $ures = request($ut->put( url => '/test', data => Dump({ kitty => "LouLou" }))); +my $ures = request($ut->put( url => $url, data => Dump({ kitty => "LouLou" }))); is ($bres->code, 415, 'GET on unknown Content-Type returns 415'); 1;