Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 96657 invoked by uid 500); 20 Feb 2003 06:48:04 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 96646 invoked from network); 20 Feb 2003 06:48:03 -0000 Date: 20 Feb 2003 06:48:05 -0000 Message-ID: <20030220064805.53790.qmail@icarus.apache.org> From: stas@apache.org To: modperl-cvs@apache.org Subject: cvs commit: modperl/t/net/perl util.pl X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 2003/02/19 22:48:05 Modified: t/net/perl util.pl Log: add tests for Apache::unescape_url Revision Changes Path 1.16 +20 -1 modperl/t/net/perl/util.pl Index: util.pl =================================================================== RCS file: /home/cvs/modperl/t/net/perl/util.pl,v retrieving revision 1.15 retrieving revision 1.16 diff -u -r1.15 -r1.16 --- util.pl 19 Jun 2002 16:31:52 -0000 1.15 +++ util.pl 20 Feb 2003 06:48:04 -0000 1.16 @@ -3,7 +3,7 @@ use Apache::test; $|++; my $i = 0; -my $tests = 7; +my $tests = 9; my $r = shift; $r->send_http_header('text/plain'); @@ -100,6 +100,25 @@ Perl => sub { my $esc = URI::Escape::uri_escape($uri) }, }); =cut + + { + my $str = "aa%20dd%2epl"; + my $expected = "aa dd.pl"; + my $received = Apache::unescape_url($str); + test ++$i, $received eq $expected; + print "expected: $expected\n"; + print "received: $received\n"; + } + + { + my $str = undef; + my $expected = ""; + no warnings; + my $received = Apache::unescape_url($str); + test ++$i, $received eq $expected; + print "expected: $expected\n"; + print "received: $received\n"; + } $C = Apache::Util::ht_time(); $Perl = HTTP::Date::time2str();