X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=t%2Fcatalyst-action-serialize-accept.t;h=64732f510892e5af70edb5730860713c9662ab34;hp=8b9408f19b9afa00ee91e786da51d4c6e557ae95;hb=960e29eed9ccd049c3c0dcd78a65308242a64ae0;hpb=f10644864a543bf49bb2473c0809e376f9ec1fb4 diff --git a/t/catalyst-action-serialize-accept.t b/t/catalyst-action-serialize-accept.t index 8b9408f..64732f5 100644 --- a/t/catalyst-action-serialize-accept.t +++ b/t/catalyst-action-serialize-accept.t @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 16; +use Test::More; use Data::Serializer; use FindBin; @@ -88,4 +88,14 @@ SKIP: { is( $res->header('Content-type'), 'text/x-data-dumper', '... with expected content-type') } -1; +# Make sure that the default content type you specify really gets used. +{ + my $req = $t->get(url => '/override/test'); + $req->remove_header('Content-Type'); + my $res = request($req); + ok( $res->is_success, 'GET the serialized request succeeded' ); + is( $res->content, "--- \nlou: is my cat\n", "Request returned proper data"); +} + +done_testing; +