Upgrade to CGI.pm-3.48
[perl.git] / cpan / CGI / t / util.t
1 #!/usr/local/bin/perl -w
2
3 # Test ability to escape() and unescape() punctuation characters
4 # except for qw(- . _).
5
6 $| = 1;
7
8 use Test::More tests => 57;
9 use Config;
10 use_ok ( 'CGI::Util', qw(escape unescape) );
11
12 # ASCII order, ASCII codepoints, ASCII repertoire
13
14 my %punct = (
15     ' ' => '20',  '!' => '21',  '"' => '22',  '#' =>  '23', 
16     '$' => '24',  '%' => '25',  '&' => '26',  '\'' => '27', 
17     '(' => '28',  ')' => '29',  '*' => '2A',  '+' =>  '2B', 
18     ',' => '2C',                              '/' =>  '2F',  # '-' => '2D',  '.' => '2E' 
19     ':' => '3A',  ';' => '3B',  '<' => '3C',  '=' =>  '3D', 
20     '>' => '3E',  '?' => '3F',  '[' => '5B',  '\\' => '5C', 
21     ']' => '5D',  '^' => '5E',                '`' =>  '60',  # '_' => '5F',
22     '{' => '7B',  '|' => '7C',  '}' => '7D',  # '~' =>  '7E', 
23          );
24
25 # The sort order may not be ASCII on EBCDIC machines:
26
27 my $i = 1;
28
29 foreach(sort(keys(%punct))) { 
30     $i++;
31     my $escape = "AbC\%$punct{$_}dEF";
32     my $cgi_escape = escape("AbC$_" . "dEF");
33     is($escape, $cgi_escape , "# $escape ne $cgi_escape");
34     $i++;
35     my $unescape = "AbC$_" . "dEF";
36     my $cgi_unescape = unescape("AbC\%$punct{$_}dEF");
37     is($unescape, $cgi_unescape , "# $unescape ne $cgi_unescape");
38 }
39