source:
trunk/essentials/dev-lang/perl/lib/CGI/t/util-58.t
| Last change on this file was 3181, checked in by , 19 years ago | |
|---|---|
| File size: 409 bytes | |
| Line | |
|---|---|
| 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__ |
Note:
See TracBrowser
for help on using the repository browser.
