[Catalyst-commits] r14049 - CatalystX-CRUD/CatalystX-CRUD/trunk/t

karpet at dev.catalyst.perl.org karpet at dev.catalyst.perl.org
Thu Jul 14 02:29:03 GMT 2011


Author: karpet
Date: 2011-07-14 02:29:03 +0000 (Thu, 14 Jul 2011)
New Revision: 14049

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/t/01-file.t
Log:
fix tests for newer HTTP::Response

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/t/01-file.t
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/t/01-file.t	2011-07-08 09:28:44 UTC (rev 14048)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/t/01-file.t	2011-07-14 02:29:03 UTC (rev 14049)
@@ -14,9 +14,9 @@
 
 ok( my $response = request('/file/search'), "response for /file/search" );
 
-#dump( $response->headers );
+#dump( $response );
 
-is( $response->headers->{status}, '302', "response was redirect" );
+is( $response->code, '302', "/file/search response was redirect" );
 
 ok( get('/autoload'), "get /autoload" );
 
@@ -37,7 +37,7 @@
     "POST new file response"
 );
 
-is( $res->headers->{status}, 302, "new file 302 redirect status" );
+is( $res->code, 302, "new file 302 redirect status" );
 
 # read the file we just created
 ok( $res = request( HTTP::Request->new( GET => '/file/testfile/view' ) ),
@@ -59,7 +59,7 @@
 # test for default()
 ok( $res = request('/file/testfile'), "get /file/testfile" );
 
-is( $res->headers->{status}, 404, "default is 404" );
+is( $res->code, 404, "default is 404" );
 
 # create related file
 ok( $res = request(
@@ -76,7 +76,7 @@
     "POST new file2 response"
 );
 
-is( $res->headers->{status}, 302, "new file 302 redirect status" );
+is( $res->code, 302, "new file 302 redirect status" );
 
 # create relationship
 ok( $res
@@ -87,7 +87,7 @@
 
 #dump $res;
 
-is( $res->headers->{status}, 204, "relationship created with status 204" );
+is( $res->code, 204, "relationship created with status 204" );
 
 # remove the relationship
 
@@ -97,7 +97,7 @@
     "remove related dir/testfile2"
 );
 
-is( $res->headers->{status}, 204, "relationship removed with status 204" );
+is( $res->code, 204, "relationship removed with status 204" );
 
 # delete the file
 




More information about the Catalyst-commits mailing list