stas 2004/07/24 02:25:49
Modified: t/response/TestAPI request_rec.pm Log: further improvements Revision Changes Path 1.27 +30 -28 modperl-2.0/t/response/TestAPI/request_rec.pm Index: request_rec.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -u -u -r1.26 -r1.27 --- request_rec.pm 24 Jul 2004 07:27:31 -0000 1.26 +++ request_rec.pm 24 Jul 2004 09:25:49 -0000 1.27 @@ -1,7 +1,7 @@ package TestAPI::request_rec; use strict; -use warnings FATAL => 'all'; +use warnings;# FATAL => 'all'; use Apache::Test; use Apache::TestUtil; @@ -68,23 +68,13 @@ ok $r->status || 1; - ok $r->method; + ok t_cmp $r->method, 'GET', "method"; ok t_cmp $r->method_number, Apache::M_GET, "method number"; #allowed_xmethods #allow_methods - { - $r->rflush; - my $sent = $r->bytes_sent; - t_debug "sent so far: $sent bytes"; - # at least 100 chars were sent already - ok $sent > 100; - } - - ok $r->mtime || 1; - ok $r->headers_in; ok $r->headers_out; @@ -118,7 +108,7 @@ ok 15 == $r->print('#',' ','n','o','t',' ','b','u','f','f','e','r','e','d',"\n"); } - #no_local_copy + ok !$r->no_local_copy; ok $r->unparsed_uri; @@ -129,15 +119,26 @@ my $location = '/' . Apache::TestRequest::module2path(__PACKAGE__); ok t_cmp($r->location, $location, "location"); - my $mtime = (stat __FILE__)[9]; - $r->mtime($mtime); - - ok $r->mtime == $mtime; - ok $r->path_info || 1; ok $r->args || 1; + # bytes_sent + { + $r->rflush; + my $sent = $r->bytes_sent; + t_debug "sent so far: $sent bytes"; + # at least 100 chars were sent already + ok $sent > 100; + } + + # mtime + { + my $mtime = (stat __FILE__)[9]; + $r->mtime($mtime); + ok t_cmp $r->mtime, $mtime, "mtime"; + } + # finfo { my $finfo = APR::Finfo::stat(__FILE__, APR::FINFO_NORM, $r->pool); @@ -149,16 +150,7 @@ '$r->finfo'); } - #parsed_uri - - #per_dir_config - #request_config - - # input_filters and output_filters are tested in - # TestAPI::in_out_filters; - - #eos_sent - + # allowed { $r->allowed(1 << Apache::M_GET); @@ -168,6 +160,16 @@ $r->allowed($r->allowed | (1 << Apache::M_PUT)); ok $r->allowed & (1 << Apache::M_PUT); } + + #parsed_uri + + #per_dir_config + #request_config + + # input_filters and output_filters are tested in + # TestAPI::in_out_filters; + + #eos_sent Apache::OK; }