[Catalyst-commits] r11811 - Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-12 23:56:36 +0000 (Thu, 12 Nov 2009)
New Revision: 11811

Modified:
   Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/t/aggregate/live_component_controller_action_chained.t
Log:
Don't fail the live tests by only looking for http://localhost/etc..

Modified: Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/t/aggregate/live_component_controller_action_chained.t
===================================================================
--- Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/t/aggregate/live_component_controller_action_chained.t	2009-11-12 23:46:28 UTC (rev 11810)
+++ Catalyst-Runtime/5.80/branches/uri_encode_captures_andor_args_take2/t/aggregate/live_component_controller_action_chained.t	2009-11-12 23:56:36 UTC (rev 11811)
@@ -1030,15 +1030,17 @@
         ['foo%2Fbar', 'baz%2Fquux', { foo => 'bar', 'baz' => 'quux%2Ffrood'}],
         ['foo%2Fbar', 'baz%2Fquux', { foo => 'bar', 'baz%2Ffnoo' => 'quux%2Ffrood'}],
     ) {
-        my $uri = 'http://localhost/chained/roundtrip_urifor/' .
+        my $path = '/chained/roundtrip_urifor/' .
             $thing->[0] . '/' . $thing->[1];
-        $uri .= '?' . join('&',
+        $path .= '?' . join('&',
             map { $_ .'='. $thing->[2]->{$_}}
             sort keys %{$thing->[2]}) if $thing->[2];
         ok( my $content =
-            get($uri),
-            'request ' . $uri . ' ok');
-        is( $content, $uri, 'uri can round trip through uri_for' );
+            get('http://localhost/' . $path),
+            'request ' . $path . ' ok');
+        # Just check that the path matches, as who the hell knows or cares
+        # where the app is based (live tests etc)
+        ok( index($content, $path) > 1, 'uri can round trip through uri_for' );
     }
 }