[Catalyst-commits] r6615 - trunk/Catalyst-Runtime/t

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-08-03 17:22:33 +0100 (Fri, 03 Aug 2007)
New Revision: 6615

Modified:
   trunk/Catalyst-Runtime/t/custom_live_component_controller_action_auto_doublebug.t
Log:
Skip doublebug test on remote servers

Modified: trunk/Catalyst-Runtime/t/custom_live_component_controller_action_auto_doublebug.t
===================================================================
--- trunk/Catalyst-Runtime/t/custom_live_component_controller_action_auto_doublebug.t	2007-08-03 05:11:51 UTC (rev 6614)
+++ trunk/Catalyst-Runtime/t/custom_live_component_controller_action_auto_doublebug.t	2007-08-03 16:22:33 UTC (rev 6615)
@@ -24,18 +24,25 @@
 }
     
 sub run_tests {
+    SKIP:
     {
-        my @expected = qw[
-            TestAppDoubleAutoBug->auto
-            TestAppDoubleAutoBug->default
-            TestAppDoubleAutoBug->end
-        ];
+        if ( $ENV{CATALYST_SERVER} ) {
+            skip 'Using remote server', 3;
+        }
+        
+        {
+            my @expected = qw[
+                TestAppDoubleAutoBug->auto
+                TestAppDoubleAutoBug->default
+                TestAppDoubleAutoBug->end
+            ];
     
-        my $expected = join( ", ", @expected );
+            my $expected = join( ", ", @expected );
     
-        ok( my $response = request('http://localhost/action/auto/one'), 'auto + local' );
-        is( $response->header('X-Catalyst-Executed'),
-            $expected, 'Executed actions' );
-        is( $response->content, 'default, auto=1', 'Content OK' );
+            ok( my $response = request('http://localhost/action/auto/one'), 'auto + local' );
+            is( $response->header('X-Catalyst-Executed'),
+                $expected, 'Executed actions' );
+            is( $response->content, 'default, auto=1', 'Content OK' );
+        }
     }
 }