t/50-cgi: encode special chars in file names
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 30 Apr 2012 20:23:22 +0000 (22:23 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 19 Nov 2013 00:53:37 +0000 (01:53 +0100)
Some characters may be disallowed on different (file) systems (such as
colons on Windows).

32 files changed:
t/50-cgi.t
t/50-cgi/01-404+not+found.html [moved from t/50-cgi/01-404 not found.html with 100% similarity]
t/50-cgi/05-403+permission+denied.html [moved from t/50-cgi/05-403 permission denied.html with 100% similarity]
t/50-cgi/12-%3c%3a%3d.html [moved from t/50-cgi/12-<:=.html with 100% similarity]
t/50-cgi/12-%3c%3a%3d.plp [moved from t/50-cgi/12-<:=.plp with 100% similarity]
t/50-cgi/20-no+warnings+by+default.html [moved from t/50-cgi/20-no warnings by default.html with 100% similarity]
t/50-cgi/20-no+warnings+by+default.plp [moved from t/50-cgi/20-no warnings by default.plp with 100% similarity]
t/50-cgi/29-fatal+error.html [moved from t/50-cgi/29-fatal error.html with 100% similarity]
t/50-cgi/29-fatal+error.plp [moved from t/50-cgi/29-fatal error.plp with 100% similarity]
t/50-cgi/31-%24PLP%3a%3aERROR.html [moved from t/50-cgi/31-$PLP::ERROR.html with 100% similarity]
t/50-cgi/31-%24PLP%3a%3aERROR.plp [moved from t/50-cgi/31-$PLP::ERROR.plp with 100% similarity]
t/50-cgi/32-%24PLP%3a%3aDEBUG.html [moved from t/50-cgi/32-$PLP::DEBUG.html with 100% similarity]
t/50-cgi/32-%24PLP%3a%3aDEBUG.plp [moved from t/50-cgi/32-$PLP::DEBUG.plp with 100% similarity]
t/50-cgi/42-apache+%25ENV.html [moved from t/50-cgi/42-apache %ENV.html with 100% similarity]
t/50-cgi/42-apache+%25ENV.plp [moved from t/50-cgi/42-apache %ENV.plp with 100% similarity]
t/50-cgi/50-%25get.html [moved from t/50-cgi/50-%get.html with 100% similarity]
t/50-cgi/50-%25get.plp [moved from t/50-cgi/50-%get.plp with 100% similarity]
t/50-cgi/51-%25get+array.html [moved from t/50-cgi/51-%get array.html with 100% similarity]
t/50-cgi/51-%25get+array.plp [moved from t/50-cgi/51-%get array.plp with 100% similarity]
t/50-cgi/55-%25header.html [moved from t/50-cgi/55-%header.html with 100% similarity]
t/50-cgi/55-%25header.plp [moved from t/50-cgi/55-%header.plp with 100% similarity]
t/50-cgi/56-%25header+repetition.html [moved from t/50-cgi/56-%header repetition.html with 100% similarity]
t/50-cgi/56-%25header+repetition.plp [moved from t/50-cgi/56-%header repetition.plp with 100% similarity]
t/50-cgi/60-empty+%25post.html [moved from t/50-cgi/60-empty %post.html with 100% similarity]
t/50-cgi/60-empty+%25post.plp [moved from t/50-cgi/60-empty %post.plp with 100% similarity]
t/50-cgi/61-%25post+set.html [moved from t/50-cgi/61-%post set.html with 100% similarity]
t/50-cgi/61-%25post+set.plp [moved from t/50-cgi/61-%post set.plp with 100% similarity]
t/50-cgi/62-%25post+data.html [moved from t/50-cgi/62-%post data.html with 100% similarity]
t/50-cgi/62-%25post+data.plp [moved from t/50-cgi/62-%post data.plp with 100% similarity]
t/50-cgi/62-%25post+data.txt [moved from t/50-cgi/62-%post data.txt with 100% similarity]
t/50-cgi/80-lighttpd+%25ENV.html [moved from t/50-cgi/80-lighttpd %ENV.html with 100% similarity]
t/50-cgi/80-lighttpd+%25ENV.plp [moved from t/50-cgi/80-lighttpd %ENV.plp with 100% similarity]

index f58566f447ff026b561479f85ab490d0b32340c3..0f3eeaf4e5f8582fd53b6795bd1fe7459028995f 100644 (file)
@@ -5,6 +5,7 @@ use Cwd;
 use File::Basename qw( dirname );
 use File::Spec;
 use Test::More;
+use PLP::Functions qw( DecodeURI );
 
 eval {
        require Test::LongString;
@@ -105,6 +106,7 @@ sub plp_ok {
        my $infile = delete $replace{-input} // "$name.plp";
        my $addin = -e "$name.txt" && "$name.txt";
        $name =~ s/^(\d*)-// and $name .= " ($1)";
+       DecodeURI($name);
 
        my $out = eval {
                local $/ = undef;  # slurp
similarity index 100%
rename from t/50-cgi/50-%get.plp
rename to t/50-cgi/50-%25get.plp