t/catalyst-action-serialize-accept.t

   1 package Test::Catalyst::Action::Serialize;
   2
   3 use FindBin;
   4
   5 use lib ("$FindBin::Bin/../lib");
   6
   7 use strict;
   8 use warnings;
   9
  10 use Catalyst::Runtime '5.70';
  11
  12 use Catalyst;
  13
  14 __PACKAGE__->config(
  15     name => 'Test::Catalyst::Action::Serialize',
  16     serialize => {
  17         'stash_key' => 'rest',
  18         'map'       => {
  19             'text/x-yaml'        => 'YAML',
  20             'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
  21             'text/broken'        => 'Broken',
  22         },
  23     }
  24 );
  25
  26 __PACKAGE__->setup;
  27
  28 sub test :Local :ActionClass('Serialize') {
  29     my ( $self, $c ) = @_;
  30     $c->stash->{'rest'} = {
  31         lou => 'is my cat',
  32     };
  33 }
  34
  35 sub test_second :Local :ActionClass('Serialize') {
  36     my ( $self, $c ) = @_;
  37     $c->stash->{'rest'} = {
  38         lou => 'is my cat',
  39     };
  40 }
  41
  42 package main;
  43
  44 use strict;
  45 use warnings;
  46 use Test::More tests => 3;
  47 use Data::Serializer;
  48 use FindBin;
  49 use Data::Dump qw(dump);
  50
  51 use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken");
  52 use Test::Rest;
  53
  54 # Should use Data::Dumper, via YAML
  55 my $t = Test::Rest->new('content_type' => 'text/x-yaml');
  56
  57 use_ok 'Catalyst::Test', 'Test::Catalyst::Action::Serialize';
  58
  59 my $req = $t->get(url => '/test');
  60 $req->remove_header('Content-Type');
  61 $req->header('Accept', 'text/x-yaml');
  62 my $res = request($req);
  63 ok( $res->is_success, 'GET the serialized request succeeded' );
  64 my $data = <<EOH;
  65 ---
  66 lou: is my cat
  67 EOH
  68 is( $res->content, $data, "Request returned proper data");
  69
  70 1;