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__ |