Add tests which should fail, but don't.
[catagits/Catalyst-Action-REST.git] / t / lib / Test / Catalyst / Action / REST / Controller / Serialize.pm
1 package Test::Catalyst::Action::REST::Controller::Serialize;
2
3 use Moose;
4 use namespace::autoclean;
5
6 BEGIN { extends 'Catalyst::Controller' }
7
8 __PACKAGE__->config(
9     'default'   => 'text/x-yaml',
10     'stash_key' => 'rest',
11     'map'       => {
12         'text/x-yaml'        => 'YAML',
13         'application/json'   => 'JSON',
14         'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
15         'text/broken'        => 'Broken',
16     },
17 );
18
19 sub test :Local :ActionClass('Serialize') {
20     my ( $self, $c ) = @_;
21     $c->stash->{'rest'} = {
22         lou => 'is my cat',
23     };
24 }
25
26 sub test_second :Local :ActionClass('Serialize') {
27     my ( $self, $c ) = @_;
28     # 'serialize_content_type' is configured in the test config in t/conf
29     $c->stash->{'serialize_content_type'} = $c->req->params->{'serialize_content_type'};
30     $c->stash->{'rest'} = {
31         lou => 'is my cat',
32     };
33 }
34
35 1;