X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/f68c371e4a046df0602f2e27997d311b76ea66ac..39e0e00b61b6910de1313ca83efa9f1c3b092650:/t/50-cgi.t

diff --git a/t/50-cgi.t b/t/50-cgi.t
index f58566f..0f3eeaf 100644
--- 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