#!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 = <<EOF;
<html>
<head>
<title>Testing Escape</title>
</head>
<body>
"ok"
&how
</body>
</html>
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);
