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 | superclasses => ['Catalyst::Request'], |
12 | ); |
13 | $meta->add_method('__random_method' => sub { 42 }); |
14 | |
15 | $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name; |
16 | |
17 | use_ok $test; |
18 | ok($test->request_class->does('Catalyst::TraitFor::Request::REST'), |
19 | 'Request class does Catalyst::TraitFor::Request::REST'); |
20 | isnt $test->request_class, $meta->name, 'Different request class'; |
21 | ok $test->request_class->can('__random_method'), 'Is right class'; |
22 | ok $test->request_class->can('data'), 'Also smells like REST subclass'; |
23 | |
24 | done_testing; |