1N/A#!/usr/local/bin/perl -w
1N/A
1N/A# Test ability to escape() and unescape() punctuation characters
1N/A# except for qw(- . _).
1N/A
1N/A$| = 1;
1N/A
1N/Ause Test::More tests => 57;
1N/Ause Config;
1N/Ause_ok ( 'CGI::Util', qw(escape unescape) );
1N/A
1N/A# ASCII order, ASCII codepoints, ASCII repertoire
1N/A
1N/Amy %punct = (
1N/A ' ' => '20', '!' => '21', '"' => '22', '#' => '23',
1N/A '$' => '24', '%' => '25', '&' => '26', '\'' => '27',
1N/A '(' => '28', ')' => '29', '*' => '2A', '+' => '2B',
1N/A ',' => '2C', '/' => '2F', # '-' => '2D', '.' => '2E'
1N/A ':' => '3A', ';' => '3B', '<' => '3C', '=' => '3D',
1N/A '>' => '3E', '?' => '3F', '[' => '5B', '\\' => '5C',
1N/A ']' => '5D', '^' => '5E', '`' => '60', # '_' => '5F',
1N/A '{' => '7B', '|' => '7C', '}' => '7D', # '~' => '7E',
1N/A );
1N/A
1N/A# The sort order may not be ASCII on EBCDIC machines:
1N/A
1N/Amy $i = 1;
1N/A
1N/Aforeach(sort(keys(%punct))) {
1N/A $i++;
1N/A my $escape = "AbC\%$punct{$_}dEF";
1N/A my $cgi_escape = escape("AbC$_" . "dEF");
1N/A is($escape, $cgi_escape , "# $escape ne $cgi_escape");
1N/A $i++;
1N/A my $unescape = "AbC$_" . "dEF";
1N/A my $cgi_unescape = unescape("AbC\%$punct{$_}dEF");
1N/A is($unescape, $cgi_unescape , "# $unescape ne $cgi_unescape");
1N/A}
1N/A