stas 2004/07/21 23:32:41
Modified: t/response/TestAPI response.pm
todo api_status
Log:
complete very basic Apache::Response tests
Revision Changes Path
1.4 +13 -3 modperl-2.0/t/response/TestAPI/response.pm
Index: response.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/response.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- response.pm 17 Jul 2004 00:16:20 -0000 1.3
+++ response.pm 22 Jul 2004 06:32:41 -0000 1.4
@@ -1,5 +1,10 @@
package TestAPI::response;
+# testing Apache::Response methods
+#
+# XXX: a proper test is needed (at the moment just test that methods
+# can be invoked as documented)
+
use strict;
use warnings FATAL => 'all';
@@ -7,15 +12,18 @@
use Apache::Response ();
use Apache::Test;
+use Apache::TestUtil;
use Apache::Const -compile => 'OK';
sub handler {
my $r = shift;
- plan $r, tests => 6;
+ plan $r, tests => 7;
- ok $r->make_etag(0);
+ my $etag = $r->make_etag();
+ t_debug $etag;
+ ok $etag;
$r->set_content_length(0);
@@ -31,9 +39,11 @@
ok $r->mtime == $mtime;
+ ok $r->set_keepalive() || 1;
+
$r->set_last_modified;
- # custom_response is tested in TestAPI::custom_response
+ # $r->custom_response() is tested in TestAPI::custom_response
ok 1;
1.19 +3 -1 modperl-2.0/todo/api_status
Index: api_status
===================================================================
RCS file: /home/cvs/modperl-2.0/todo/api_status,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -u -r1.18 -r1.19
--- api_status 16 Jul 2004 22:38:36 -0000 1.18
+++ api_status 22 Jul 2004 06:32:41 -0000 1.19
@@ -35,7 +35,9 @@
VV src/docs/2.0/api/Apache/RequestIO.pod
-- src/docs/2.0/api/Apache/RequestRec.pod
VV src/docs/2.0/api/Apache/RequestUtil.pod
--- src/docs/2.0/api/Apache/Response.pod
+VP src/docs/2.0/api/Apache/Response.pod
+ send_error_response
+ send_mmap
VP src/docs/2.0/api/Apache/ServerRec.pod
addrs
lookup_defaults
