-#!perl
-
use strict;
use warnings;
} else {
$path = uri_escape($test);
}
-
+
SKIP:
- {
+ {
# Skip %2F, ., [, (, and ) tests on real webservers
# Both Apache and lighttpd don't seem to like these
if ( $ENV{CATALYST_SERVER} && $path =~ /(?:%2F|\.|%5B|\(|\))/ ) {
my $response;
- ok( $response = request("http://localhost/args/args/$path"), "Requested args for path $path");
+ ok( $response = request("http://localhost/args/args/$path"), "Requested /args/args/$path");
is( $response->content, $test, "$test as args" );
undef $response;
- ok( $response = request("http://localhost/args/params/$path"), "Requested params for path $path");
+ ok( $response = request("http://localhost/args/params/$path"), "Requested /args/params/$path");
- is( $response->content, $test, "$test as params" );
+ is( $response->content, $test, "response content $test as params" );
undef $response;
if( $test =~ m{/} ) {
$test =~ s{/}{}g;
- $path = uri_escape( $test );
+ $path = uri_escape( $test );
}
ok( $response = request("http://localhost/chained/multi_cap/$path/baz"), "Requested capture for path $path");