X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcatalyst-request-rest.t;h=ac49e29cddeb77d43df52ac223390b3f0c9f8bb5;hb=f04ed654a172628f642bdefe8483c1e6becf9ad1;hp=98b35177cae106843b0d048c4d8e54e7ba2d0718;hpb=2f7533ed98d3c3821696968844cbe4ff12159490;p=catagits%2FCatalyst-Action-REST.git

diff --git a/t/catalyst-request-rest.t b/t/catalyst-request-rest.t
index 98b3517..ac49e29 100644
--- a/t/catalyst-request-rest.t
+++ b/t/catalyst-request-rest.t
@@ -1,8 +1,8 @@
 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;
@@ -167,6 +167,25 @@ 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 { }