$ENV{CATALYST_DEBUG} = 0;
my $test = 'Test::Catalyst::Action::REST';
use_ok $test;
- ok($test->request_class->meta->does_role('Catalyst::TraitFor::Request::REST'),
- 'request class does REST role');
+ ok($test->request_class->does('Catalyst::TraitFor::Request::REST'),
+ 'Request does Catalyst::TraitFor::Request::REST');
my $meta = Moose::Meta::Class->create_anon_class(
superclasses => ['Catalyst::Request'],
ok !$@, 'Can setup again';
isnt $test->request_class, $meta->name, 'Different request class';
ok $test->request_class->can('__random_method'), 'Is right class';
- ok($test->request_class->meta->does_role('Catalyst::TraitFor::Request::REST'),
- 'request class still does REST role');
+ ok $test->request_class->can('data'), 'Also smells like REST subclass';
{
package My::Request;