Commit | Line | Data |
e0323f6a |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use FindBin; |
5 | use Moose (); |
6 | use lib ( "$FindBin::Bin/lib" ); |
7 | |
8 | my $test = 'Test::Catalyst::Action::REST'; |
9 | |
10 | my $meta = Moose::Meta::Class->create_anon_class( |
11 | # The test app has ForBrowsers actions, so we need that to not have |
12 | # the request class replaced |
13 | superclasses => ['Catalyst::Request::REST::ForBrowsers'], |
14 | ); |
15 | |
16 | $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name; |
17 | |
18 | use_ok $test; |
19 | ok($test->request_class->does('Catalyst::TraitFor::Request::REST'), |
20 | 'Request class does Catalyst::TraitFor::Request::REST'); |
21 | is $test->request_class, $meta->name, 'Request class kept'; |
22 | ok $test->request_class->can('data'), 'Also smells like REST subclass'; |
23 | |
24 | done_testing; |