use strict;
use warnings;
-use Test::More tests => 24;
+use Test::More tests => 28;
use FindBin;
-use lib ( "$FindBin::Bin/../lib" );
+use lib ( "$FindBin::Bin/../lib", "$FindBin::Bin/../t/lib" );
use Catalyst::Request::REST;
use HTTP::Headers;
'each type appears only once' );
}
+{
+ 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_finished(0); $test->setup };
+ like $@, qr/$test has a custom request class Some::Other::Class/;
+
+ {
+ package My::Request;
+ use base 'Catalyst::Request::REST';
+ }
+ $test->request_class('My::Request');
+ eval { $test->setup_finished(0); $test->setup };
+ is $@, '', 'no error from Request::REST subclass';
+}
+
package MockContext;
sub prepare_body { }