6 use lib ( "$FindBin::Bin/lib" );
8 my $test = 'Test::Catalyst::Action::REST';
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'],
16 $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name;
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';