}
{
+ local %ENV=%ENV;
+ $ENV{CATALYST_DEBUG} = 0;
my $test = 'Test::Catalyst::Action::REST';
use_ok $test;
is($test->request_class, 'Catalyst::Request::REST',
'Request::REST took over for Request');
$test->request_class('Some::Other::Class');
- eval { $test->setup };
+ eval { $test->setup_finished(0); $test->setup };
like $@, qr/$test has a custom request class Some::Other::Class/;
{
use base 'Catalyst::Request::REST';
}
$test->request_class('My::Request');
- eval { $test->setup };
+ eval { $test->setup_finished(0); $test->setup };
is $@, '', 'no error from Request::REST subclass';
}