t/catalyst-action-serialize-query.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 package main;
  36
  37 use strict;
  38 use warnings;
  39 use Test::More qw(no_plan);
  40 use FindBin;
  41 use Data::Dump qw(dump);
  42
  43 use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken");
  44 use Test::Rest;
  45
  46 # YAML
  47 my $t = Test::Rest->new('content_type' => 'text/x-yaml');
  48
  49 use_ok 'Catalyst::Test', 'Test::Catalyst::Action::Serialize';
  50
  51 my $req = $t->get(url => '/test?content-type=text/x-yaml');
  52 $req->remove_header('Content-Type');
  53 my $res = request($req);
  54 ok( $res->is_success, 'GET the serialized request succeeded' );
  55 my $data = <<EOH;
  56 ---
  57 lou: is my cat
  58 EOH
  59 is( $res->content, $data, "Request returned proper data");
  60
  61 1;