apply RequestRole::REST instead of doing Request::REST->_insert_self_info

[catagits/Catalyst-Action-REST.git] / t / catalyst-request-rest.t

diff --git a/t/catalyst-request-rest.t b/t/catalyst-request-rest.t
index 98b3517..82687d2 100644 (file)
--- 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 => 26;
 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,13 @@ use HTTP::Headers;
                'each type appears only once' );
 }
 
+{
+  my $test = 'Test::Catalyst::Action::REST';
+  use_ok $test;
+  is($test->request_class, 'Catalyst::Request',
+    'Request::REST did not take over for Request');
+}
+
 package MockContext;
 
 sub prepare_body { }