You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by Tatsuhiko Miyagawa <mi...@edge.co.jp> on 2002/03/25 07:29:32 UTC
mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
This is perl, version 5.005_03 built for i386-freebsd
Apache 1.3.24
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
internal/hooks.t 9 8 88.89% 2-9
internal/redirect.t 6 1 16.67% 4
modules/util.t 10 1 10.00% 10
1 test skipped.
internal/hooks....GET http://localhost:8529/perl/hooks.pl
HTTP/1.1 200 OK
Connection: close
Date: Mon, 25 Mar 2002 06:28:00 GMT
Server: Apache/1.3.24 (Unix) mod_perl/1.26 Perl/5.00503
Content-Type: text/html
Client-Date: Mon, 25 Mar 2002 06:28:00 GMT
Client-Peer: 127.0.0.1:8529
9
GET http://localhost:8529/test.html
HTTP/1.1 200 OK
Connection: close
Date: Mon, 25 Mar 2002 06:28:00 GMT
Accept-Ranges: bytes
ETag: "105b50-236-348991f7"
Server: Apache/1.3.24 (Unix) mod_perl/1.26 Perl/5.00503
Content-Length: 566
Content-Type: text/html
Last-Modified: Sat, 06 Dec 1997 17:57:11 GMT
Client-Date: Mon, 25 Mar 2002 06:28:00 GMT
Client-Peer: 127.0.0.1:8529
And so it was decided the camel should be given magical multi-colored
feathers so it could fly and journey to once unknown worlds.
And so it was done...
<hr>
<!-- for testing perl mod_include's -->
Child <!--#perl sub="main::pid" --> accessed
<!--#perl sub="main::access" --> times. <br>
<hr>
<!--#perl sub="sub { print qq(__ANON__ works [@_])}" -->
<p>
<!--#perl sub="Apache::Include" arg="/perl/ssi.pl" -->
<!--#include virtual="/perl/io/ssi1.pl" -->
<!--#include virtual="/perl/io/ssi2.pl" -->
<!--#perl sub="SSI::one" -->
<!--#perl sub="SSI::two" -->
1..9
ok 1
FAILED tests 2-9
Failed 8/9 tests, 11.11% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
internal/hooks.t 9 8 88.89% 2-9
Failed 1/1 test scripts, 0.00% okay. 8/9 subtests failed, 11.11% okay.
internal/redirect....module CGI is installed
1..6
ok 1
ok 2
ok 3
content=`OK'
not ok 4
content=`<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>404 Not Found</TITLE>
</HEAD><BODY>
<H1>Not Found</H1>
The requested URL /perl/io/redir1.pl was not found on this server.<P>
</BODY></HTML>
'
ok 5
content=`<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>302 Moved</TITLE>
</HEAD><BODY>
<H1>Moved</H1>
The document has moved <A HREF="http://localhost:8529/perl/qredirect.pl/OK">her
e</A>.<P>
</BODY></HTML>
'
ok 6
content=`OK'
FAILED test 4
Failed 1/6 tests, 83.33% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
internal/redirect.t 6 1 16.67% 4
Failed 1/1 test scripts, 0.00% okay. 1/6 subtests failed, 83.33% okay.
modules/util....1..10
ok 1
ok 2
ok 3
ok 4
C = http://www.apache.org/docs/mod/mod_proxy.html%3fhas%20some%20spaces
Perl = http%3A%2F%2Fwww.apache.org%2Fdocs%2Fmod%2Fmod_proxy.html%3Fhas%20some%2
0spaces
ok 5
C = Mon, 25 Mar 2002 06:28:40 GMT
Perl = Mon, 25 Mar 2002 06:28:40 GMT
builtin = Mon Mar 25 06:28:40 2002
ok 6
Testing Date::Format
C=25 Mar 2002 15:28:40 JST
Perl=25 Mar 2002 15:28:40 JST
ok 7
C=Mon, 25 March 2002
Perl=Mon, 25 March 2002
ok 8
ok 9
C says: Sat Jul 18 17:38:00 1998
Perl says: Sun Jul 19 00:38:00 1998
HTT=Sat, 18 July 1998
not ok 10
FAILED test 10
Failed 1/10 tests, 90.00% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
modules/util.t 10 1 10.00% 10
Failed 1/1 test scripts, 0.00% okay. 1/10 subtests failed, 90.00% okay.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Tatsuhiko Miyagawa <mi...@edge.co.jp>.
At Tue, 26 Mar 2002 06:56:48 -0800 (PST),
Doug MacEachern wrote:
> > > It seems to me that Apache::Util::parsedate() ignores '-0700'.
>
> hmm, strange the tests passed for me. but your patch looks good, thanks.
The test only checks the date is same. What makes the difference is
our timezones.
--
Tatsuhiko Miyagawa
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Stas Bekman <st...@stason.org>.
Tatsuhiko Miyagawa wrote:
> At Tue, 26 Mar 2002 15:03:44 +0900,
> Tatsuhiko Miyagawa wrote:
>
>
>>It seems to me that Apache::Util::parsedate() ignores '-0700'.
>
>
> in util_date.c
>
> /*
> * Parses an HTTP date in one of three standard forms:
> *
> * Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123
> * Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
> * Sun Nov 6 08:49:37 1994 ; ANSI C's asctime() format
>
> Patch after sig.
passes all tests for me with this patch.
> --
> Tatsuhiko Miyagawa <mi...@edge.co.jp>
>
>
>
> --- t/net/perl/util.pl~ Mon Mar 25 06:53:23 2002
> +++ t/net/perl/util.pl Tue Mar 26 15:25:08 2002
> @@ -156,7 +156,7 @@
> Perl: 21 secs (20.57 usr 0.14 sys = 20.71 cpu)
> =cut
>
> -my $date_str = "Sat, 18 Jul 1998 08:38:00 -0700";
> +my $date_str = "Sat, 18 Jul 1998 08:38:00 GMT";
>
> test ++$i, Apache::Util::parsedate($date_str);
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
> For additional commands, e-mail: dev-help@perl.apache.org
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Doug MacEachern <do...@covalent.net>.
On Tue, 26 Mar 2002, Tatsuhiko Miyagawa wrote:
> At Tue, 26 Mar 2002 15:03:44 +0900,
> Tatsuhiko Miyagawa wrote:
>
> > It seems to me that Apache::Util::parsedate() ignores '-0700'.
hmm, strange the tests passed for me. but your patch looks good, thanks.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Tatsuhiko Miyagawa <mi...@edge.co.jp>.
At Tue, 26 Mar 2002 15:03:44 +0900,
Tatsuhiko Miyagawa wrote:
> It seems to me that Apache::Util::parsedate() ignores '-0700'.
in util_date.c
/*
* Parses an HTTP date in one of three standard forms:
*
* Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123
* Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
* Sun Nov 6 08:49:37 1994 ; ANSI C's asctime() format
Patch after sig.
--
Tatsuhiko Miyagawa <mi...@edge.co.jp>
--- t/net/perl/util.pl~ Mon Mar 25 06:53:23 2002
+++ t/net/perl/util.pl Tue Mar 26 15:25:08 2002
@@ -156,7 +156,7 @@
Perl: 21 secs (20.57 usr 0.14 sys = 20.71 cpu)
=cut
-my $date_str = "Sat, 18 Jul 1998 08:38:00 -0700";
+my $date_str = "Sat, 18 Jul 1998 08:38:00 GMT";
test ++$i, Apache::Util::parsedate($date_str);
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Tatsuhiko Miyagawa <mi...@edge.co.jp>.
At Mon, 25 Mar 2002 14:37:05 -0800 (PST),
Doug MacEachern wrote:
> > not ok 11
>
> seems to be related to Time::ParseDate, what version are you using?
>
> % perl-5.005_03-debug -MTime::ParseDate -le 'print $Time::ParseDate::VERSION'
> 101.062101
slightly modified debugging output (localtime => gmtime) and tested again:
my $date_str = "Sat, 18 Jul 1998 08:38:00 -0700";
if($test_time_parsedate) {
my $c = Apache::Util::parsedate($date_str);
print "C says: ", scalar(gmtime $c), " = $c\n";
my $p = Time::ParseDate::parsedate($date_str);
print "Perl says: ", scalar(gmtime $p), " = $p\n";
C says: Sat Jul 18 08:38:00 1998 = 900751080
Perl says: Sat Jul 18 15:38:00 1998 = 900776280
HTT=Sat, 18 July 1998
not ok 11
It seems to me that Apache::Util::parsedate() ignores '-0700'.
--
Tatsuhiko Miyagawa <mi...@edge.co.jp>
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Tatsuhiko Miyagawa <mi...@edge.co.jp>.
At Mon, 25 Mar 2002 14:37:05 -0800 (PST),
Doug MacEachern wrote:
> > not ok 11
>
> seems to be related to Time::ParseDate, what version are you using?
>
> % perl-5.005_03-debug -MTime::ParseDate -le 'print $Time::ParseDate::VERSION'
> 101.062101
Same here, which seems strange.
I'll look into it more closely later...
--
Tatsuhiko Miyagawa <mi...@edge.co.jp>
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Doug MacEachern <do...@covalent.net>.
On Tue, 26 Mar 2002, Tatsuhiko Miyagawa wrote:
> Here's a result of re-test:
much better!
> not ok 11
seems to be related to Time::ParseDate, what version are you using?
% perl-5.005_03-debug -MTime::ParseDate -le 'print $Time::ParseDate::VERSION'
101.062101
this is from Time-modules-101.062101.tar.gz on cpan.
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Tatsuhiko Miyagawa <mi...@edge.co.jp>.
At Mon, 25 Mar 2002 09:40:25 -0800 (PST),
Doug MacEachern wrote:
> > Server: Apache/1.3.24 (Unix) mod_perl/1.26 Perl/5.00503
> ^^^^
> you are not testing the current snapshot, that should be:
> mod_perl/1.26_01-dev
>
> maybe an old 1.26 was still running on port 8529?
Eek, Bingo! shame on me.
Here's a result of re-test:
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
modules/util.t 11 1 9.09% 11
modules/util....1..11
ok 1
ok 2
ok 3
ok 4
ok 5
C = http://www.apache.org/docs/mod/mod_proxy.html%3fhas%20some%20spaces
Perl = http%3A%2F%2Fwww.apache.org%2Fdocs%2Fmod%2Fmod_proxy.html%3Fhas%20some%20
spaces
ok 6
C = Mon, 25 Mar 2002 18:21:34 GMT
Perl = Mon, 25 Mar 2002 18:21:34 GMT
builtin = Mon Mar 25 18:21:34 2002
ok 7
Testing Date::Format
C=26 Mar 2002 03:21:34 JST
Perl=26 Mar 2002 03:21:34 JST
ok 8
C=Tue, 26 March 2002
Perl=Tue, 26 March 2002
ok 9
ok 10
C says: Sat Jul 18 17:38:00 1998
Perl says: Sun Jul 19 00:38:00 1998
HTT=Sat, 18 July 1998
not ok 11
FAILED test 11
Failed 1/11 tests, 90.91% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
modules/util.t 11 1 9.09% 11
Failed 1/1 test scripts, 0.00% okay. 1/11 subtests failed, 90.91% okay.
--
Tatsuhiko Miyagawa <mi...@edge.co.jp>
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: mod_perl 1.27-tobe test report: perl-5.005_03 on FreeBSD
Posted by Doug MacEachern <do...@covalent.net>.
On Mon, 25 Mar 2002, Tatsuhiko Miyagawa wrote:
> Server: Apache/1.3.24 (Unix) mod_perl/1.26 Perl/5.00503
^^^^
you are not testing the current snapshot, that should be:
mod_perl/1.26_01-dev
maybe an old 1.26 was still running on port 8529?
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org