stas 01/12/09 20:32:40
Modified: t/response/TestApache compat.pm
t/apache compat.t
Log:
- add a few todo tests: $r->set_content_length(),
$r->update_mtime(), $r->set_last_modified($time)
Revision Changes Path
1.6 +13 -0 modperl-2.0/t/response/TestApache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- compat.pm 2001/12/05 16:39:01 1.5
+++ compat.pm 2001/12/10 04:32:40 1.6
@@ -139,6 +139,9 @@
ok $r->meets_conditions == Apache::OK;
debug "\$r->set_content_length";
+ # XXX: broken
+ #$r->set_content_length();
+ ok 0;
$r->set_content_length(10);
my $cl_header = $r->headers_out->{"Content-length"} || '';
ok $cl_header == 10;
@@ -149,10 +152,20 @@
ok 1;
debug "\$r->update_mtime/\$r->mtime";
+ # XXX: broken
+ # $r->update_mtime; # just check that it's valid
+ ok 0;
my $time = time;
$r->update_mtime($time);
ok $r->mtime == $time;
+ debug "\$r->set_last_modified";
+ # XXX: broken
+ # $r->set_last_modified($time);
+ ok 0;
+ $time = time;
+ $r->set_last_modified();
+ ok $r->mtime == $time;
}
Apache::OK;
1.7 +1 -1 modperl-2.0/t/apache/compat.t
Index: compat.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/compat.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- compat.t 2001/12/05 16:39:01 1.6
+++ compat.t 2001/12/10 04:32:40 1.7
@@ -6,7 +6,7 @@
use Apache::TestUtil;
use Apache::TestRequest;
-plan tests => 26, \&have_lwp;
+plan tests => 30, todo => [24, 27, 29], \&have_lwp;
my $location = "/TestApache::compat";
