All tests successful :)
Christian Hansen [Sun, 10 Apr 2005 23:35:11 +0000 (23:35 +0000)]
t/controller/action/absolute.t
t/controller/action/private.t
t/lib/TestApp/Controller/Action/Absolute.pm [moved from t/lib/TestApp/Controller/Action/Absoulte.pm with 90% similarity]

index c855ba9..7d1bec9 100644 (file)
@@ -15,7 +15,7 @@ use Catalyst::Test 'TestApp';
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content_type, 'text/plain', 'Response Content-Type' );
     is( $response->header('X-Catalyst-Action'), 'action_absolute_one', 'Test Action' );
-    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absolute', 'Test Class' );
     like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
 }
 
@@ -24,7 +24,7 @@ use Catalyst::Test 'TestApp';
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content_type, 'text/plain', 'Response Content-Type' );
     is( $response->header('X-Catalyst-Action'), 'action_absolute_two', 'Test Action' );
-    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absolute', 'Test Class' );
     like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
 }
 
@@ -33,6 +33,6 @@ use Catalyst::Test 'TestApp';
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content_type, 'text/plain', 'Response Content-Type' );
     is( $response->header('X-Catalyst-Action'), 'action_absolute_three', 'Test Action' );
-    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absolute', 'Test Class' );
     like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
 }
index 19e1e45..326c077 100644 (file)
@@ -28,10 +28,9 @@ use Catalyst::Test 'TestApp';
 
 {
     ok( my $response = request('http://localhost/three'), 'Request' );
-    ok( $response->is_success, 'Response Successful 2xx' );
-    is( $response->content_type, 'text/plain', 'Response Content-Type' );
-    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
-    is( $response->content, 'access denied', 'Access' );
+    ok( $response->is_error, 'Response Server Error 5xx' );
+    is( $response->content_type, 'text/html', 'Response Content-Type' );
+    like( $response->header('X-Catalyst-Error'), qr/^Unknown resource "three"/, 'Catalyst Error' );
 }
 
 {
similarity index 90%
rename from t/lib/TestApp/Controller/Action/Absoulte.pm
rename to t/lib/TestApp/Controller/Action/Absolute.pm
index 0c04b54..91e77ba 100644 (file)
@@ -1,4 +1,4 @@
-package TestApp::Controller::Action::Absoulte;
+package TestApp::Controller::Action::Absolute;
 
 use strict;
 use base 'TestApp::Controller::Action';