[Catalyst-commits] r10230 - Catalyst-Runtime/5.80/trunk/t/aggregate

[kmx at dev.catalyst.perl.org]

Author: kmx
Date: 2009-05-21 21:54:38 +0000 (Thu, 21 May 2009)
New Revision: 10230

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_env.t
Log:
little fix for test live_engine_request_env.t

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_env.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_env.t	2009-05-21 21:14:48 UTC (rev 10229)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_env.t	2009-05-21 21:54:38 UTC (rev 10230)
@@ -31,8 +31,8 @@
         'Request' );
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content_type, 'text/plain', 'Response Content-Type' );
-    ok( eval '$env = ' . $response->content, 'Unserialize Catalyst::Request' );
-    is ref($env), 'HASH';
+    ok( eval '$env = TestApp->engine->env', 'engine->env is defined' );
+    is( ref($env), 'HASH', 'engine->env is a hash' );
     ok exists($env->{PATH}), 'Have a PATH env var';
 
     SKIP: