6 use lib ( "$FindBin::Bin/lib" );
8 my $test = 'Test::Catalyst::Action::REST';
10 my $meta = Moose::Meta::Class->create_anon_class(
11 superclasses => ['Catalyst::Request'],
13 $meta->add_method('__random_method' => sub { 42 });
15 $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name;
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';