t/catalyst-controller-rest.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4 use YAML::Syck;
   5 use FindBin;
   6
   7 use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken");
   8 use Test::Rest;
   9
  10 my $t = Test::Rest->new(content_type => 'text/x-yaml');
  11
  12 use_ok 'Catalyst::Test', 'Test::Catalyst::Action::REST';
  13
  14 my $data = { your => 'face' };
  15 is_deeply(
  16   Load(
  17     request($t->put(url => '/rest/test', data => Dump($data)))->content
  18   ),
  19   { test => 'worked', data => $data },
  20   'round trip (deserialize/serialize)',
  21 );