t/catalyst-action-serialize-query.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 3;
   4 use FindBin;
   5
   6 use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken");
   7 use Test::Rest;
   8
   9 # YAML
  10 my $t = Test::Rest->new('content_type' => 'text/x-yaml');
  11
  12 use_ok 'Catalyst::Test', 'Test::Catalyst::Action::REST';
  13
  14 my $req = $t->get(url => '/serialize/test?content-type=text/x-yaml');
  15 $req->remove_header('Content-Type');
  16 my $res = request($req);
  17 ok( $res->is_success, 'GET the serialized request succeeded' );
  18 my $data = <<EOH;
  19 ---
  20 lou: is my cat
  21 EOH
  22 is( $res->content, $data, "Request returned proper data");
  23
  24 1;