Testing Escape

#!perl use strict; use Apache::testold; $|++; my $i = 0; my $tests = 9; my $r = shift; $r->send_http_header('text/plain'); eval { require Apache::Util; require HTML::Entities; require URI::Escape; require HTTP::Date; }; if($@) { print "$@\n"; print "1..0\n"; return; } my $test_date_format = 0; my $test_time_parsedate = 0; eval { require Date::Format; }; unless($@) { $test_date_format = 2; $tests += $test_date_format; } $@ = ''; eval { require Time::ParseDate; }; unless($@) { $test_time_parsedate = 1; $tests += $test_time_parsedate; } $@ = ''; print "1..$tests\n"; for ("10321", "100666") { my $size = Apache::Util::size_string($_); test ++$i, $size; #print "$_ => $size\n"; } my $html = < Testing Escape "ok" &how EOF my $txt = "No html tags in here at all"; my $etxt = Apache::Util::escape_html($txt); test ++$i, $txt eq $etxt; my $esc = Apache::Util::escape_html($html); #print $esc; my $esc_2 = HTML::Entities::encode($html); #print $esc_2; test ++$i, $esc eq $esc_2; use Benchmark; =pod timethese(1000, { C => sub { my $esc = Apache::Util::escape_html($html) }, Perl => sub { my $esc = HTML::Entities::encode($html) }, }); =cut my $uri = "http://www.apache.org/docs/mod/mod_proxy.html?has some spaces"; my $C = Apache::Util::escape_uri($uri); my $Perl = URI::Escape::uri_escape($uri); print "C = $C\n"; print "Perl = $Perl\n"; #test ++$i, lc($C) eq lc($Perl); test ++$i, length($C) && length($Perl); =pod timethese(10000, { C => sub { my $esc = Apache::Util::escape_uri($uri) }, 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 = ""; local $^W = 0; 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(); my $builtin = scalar gmtime; print "C = $C\n"; print "Perl = $Perl\n"; print "builtin = $builtin\n"; #test ++$i, lc($C) eq lc($Perl); test ++$i, length($C) && length($Perl); =pod use Benchmark; timethese(10000, { C => sub { my $d = Apache::Util::ht_time() }, Perl => sub { my $d = HTTP::Date::time2str() }, Perl_builtin => sub { my $d = scalar gmtime }, }); =cut my @formats = ("%d %b %Y %T %Z", "%a, %d %B %Y"); if($test_date_format) { print "Testing Date::Format\n"; for my $fmt (@formats) { my $c = Apache::Util::ht_time(time, $fmt, 0); my $p = Date::Format::time2str($fmt, time); print "C=$c\nPerl=$p\n"; #test ++$i, $c eq $p; test ++$i, length($c) && length($p); } } =pod timethese(10000, { C => sub { for my $fmt (@formats) { my $c = Apache::Util::ht_time(time, $fmt, 0); } }, Perl => sub { for my $fmt (@formats) { my $p = Date::Format::time2str($fmt, time); } }, }); =cut =pod Benchmark: timing 10000 iterations of C, Perl... C: 3 secs ( 2.64 usr 0.05 sys = 2.69 cpu) Perl: 21 secs (20.57 usr 0.14 sys = 20.71 cpu) =cut my $date_str = "Sat, 18 Jul 1998 08:38:00 GMT"; test ++$i, Apache::Util::parsedate($date_str); if($test_time_parsedate) { my $c = Apache::Util::parsedate($date_str); print "C says: ", scalar(localtime $c), "\n"; my $p = Time::ParseDate::parsedate($date_str); print "Perl says: ", scalar(localtime $p), "\n"; my $htt = Apache::Util::ht_time($c, $formats[-1], 0); print "HTT=$htt\n"; test ++$i, Apache::Util::ht_time($c, $formats[-1], 0) eq Apache::Util::ht_time($p, $formats[-1], 0) } =pod timethese(10000, { C => sub { my $c = Apache::Util::parsedate($date_str); }, Perl => sub { my $p = Time::ParseDate::parsedate($date_str); }, }); =cut =pod Benchmark: timing 10000 iterations of C, Perl... C: 1 secs ( 0.42 usr 0.00 sys = 0.42 cpu) Perl: 17 secs (16.76 usr 0.07 sys = 16.83 cpu) =cut #my $hash = "aX9eP53k4DGfU"; #test ++$i, Apache::Util::validate_password("dougm", $hash); #test ++$i, ! Apache::Util::validate_password("mguod", $hash);