t/50-cgi: encode special chars in file names

[perl/plp/.git] / t / 50-cgi.t

diff --git a/t/50-cgi.t b/t/50-cgi.t
index f58566f447ff026b561479f85ab490d0b32340c3..0f3eeaf4e5f8582fd53b6795bd1fe7459028995f 100644 (file)
--- a/t/50-cgi.t
+++ b/t/50-cgi.t
@@ -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