[p5sagit/p5-mst-13.2.git] / lib / CGI / t / util-58.t

#
# This tests CGI::Util::escape() when fed with UTF-8-flagged string
# -- dankogai
BEGIN {
    if ($] < 5.008) {
       print "1..0 # \$] == $] < 5.008\n";
       exit(0);
    }
}

use Test::More tests => 2;
use_ok("CGI::Util");
my $uri = "\x{5c0f}\x{98fc} \x{5f3e}.txt"; # KOGAI, Dan, in Kanji
is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt",
   "# Escape string with UTF-8 flag");
__END__
Commit	Line	Data
8f3ccfa2	1	#
	2	# This tests CGI::Util::escape() when fed with UTF-8-flagged string
	3	# -- dankogai
	4	BEGIN {
	5	if ($] < 5.008) {
	6	print "1..0 # \$] == $] < 5.008\n";
	7	exit(0);
	8	}
	9	}
	10
	11	use Test::More tests => 2;
	12	use_ok("CGI::Util");
	13	my $uri = "\x{5c0f}\x{98fc} \x{5f3e}.txt"; # KOGAI, Dan, in Kanji
	14	is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt",
	15	"# Escape string with UTF-8 flag");
	16	__END__