[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
if (ord('A') == 193) { # EBCDIC.
    is(CGI::Util::escape($uri), "%FC%C3%A0%EE%F9%E5%E7%F8%20%FC%C3%C7%CA.txt",
       "# Escape string with UTF-8 (UTF-EBCDIC) flag");
} else {
    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
cf0d1c66	14	if (ord('A') == 193) { # EBCDIC.
	15	is(CGI::Util::escape($uri), "%FC%C3%A0%EE%F9%E5%E7%F8%20%FC%C3%C7%CA.txt",
	16	"# Escape string with UTF-8 (UTF-EBCDIC) flag");
	17	} else {
	18	is(CGI::Util::escape($uri), "%E5%B0%8F%E9%A3%BC%20%E5%BC%BE.txt",
	19	"# Escape string with UTF-8 flag");
	20	}
8f3ccfa2	21	__END__