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