X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_component_controller_args.t;h=861b4ad631f3517fd33170297582ddc74a030ce8;hb=f9bcc1280f6685f1d937688ed9c035bc9994a01e;hp=f5768ae6d328ff95985c943d72acaa8bf4c70e8d;hpb=12cd259ddc8814c8a8e2ced2599abdc5aef22683;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live_component_controller_args.t b/t/live_component_controller_args.t index f5768ae..861b4ad 100644 --- a/t/live_component_controller_args.t +++ b/t/live_component_controller_args.t @@ -13,21 +13,21 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; - # add special paths to test here - @paths = ( - # all reserved in uri's - qw~ : / ? [ ] @ ! $ & ' ( ) * + ; = ~, ',' , '#', + # add special paths to test here + @paths = ( + # all reserved in uri's + qw~ : / ? [ ] @ ! $ & ' ( ) * + ; = ~, ',' , '#', - # unreserved - 'a'..'z','A'..'Z',0..9,qw( - . _ ~ ), - " ", + # unreserved + 'a'..'z','A'..'Z',0..9,qw( - . _ ~ ), + " ", - # just to test %2F/% - [ qw~ / / ~ ], + # just to test %2F/% + [ qw~ / / ~ ], - # testing %25/%25 - [ qw~ % % ~ ], - ); + # testing %25/%25 + [ qw~ % % ~ ], + ); } use Test::More tests => 6*@paths * $iters; @@ -65,8 +65,9 @@ sub run_test_for { SKIP: { - # Skip %2F and . tests on real webservers, they are often ignored by default - if ( $ENV{CATALYST_SERVER} && $path =~ /(?:%2F|\.)/ ) { + # Skip %2F, ., [, (, and ) tests on real webservers + # Both Apache and lighttpd don't seem to like these + if ( $ENV{CATALYST_SERVER} && $path =~ /(?:%2F|\.|%5B|\(|\))/ ) { skip "Skipping $path tests on remote server", 6; }