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