Added recursive -r flag to prove example
[catagits/Catalyst-Runtime.git] / t / component / controller / action / default.t
index 88c32ca..b41893b 100644 (file)
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 
 use FindBin;
-use lib "$FindBin::Bin/../../lib";
+use lib "$FindBin::Bin/../../../lib";
 
-use Test::More no_plan => 1;
+use Test::More tests=>9 ;
 use Catalyst::Test 'TestApp';
 
 
@@ -26,4 +26,7 @@ use Catalyst::Test 'TestApp';
     is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Default', 'Test Class' );
     is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
     like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+
+    ok( $response = request('http://localhost/foo/bar/action'), 'Request' );
+    is( $response->code, 404, 'Invalid URI returned 404' );
 }