dougm 01/11/13 10:40:01
Modified: t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm
Log:
add some comments to the *_rec tests
Revision Changes Path
1.4 +6 -1 modperl-2.0/t/response/TestAPI/conn_rec.pm
Index: conn_rec.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- conn_rec.pm 2001/04/19 05:46:04 1.3
+++ conn_rec.pm 2001/11/13 18:40:01 1.4
@@ -5,6 +5,11 @@
use Apache::Test;
+use Apache::Const -compile => 'OK';
+
+#this test module is only for testing fields in the conn_rec
+#listed in apache_structures.map
+
sub handler {
my $r = shift;
@@ -48,7 +53,7 @@
#output_filters
#remain
- 0;
+ Apache::OK;
}
1;
1.13 +5 -0 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.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- request_rec.pm 2001/11/13 18:35:08 1.12
+++ request_rec.pm 2001/11/13 18:40:01 1.13
@@ -8,6 +8,11 @@
use Apache::Const -compile => 'OK';
+#this test module is only for testing fields in the request_rec
+#listed in apache_structures.map
+#XXX: GloabalRequest test should be moved elsewhere
+# as should $| test
+
sub handler {
my $r = shift;
1.7 +3 -3 modperl-2.0/t/response/TestAPI/server_rec.pm
Index: server_rec.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- server_rec.pm 2001/11/13 18:35:08 1.6
+++ server_rec.pm 2001/11/13 18:40:01 1.7
@@ -9,6 +9,9 @@
use Apache::Const -compile => 'OK';
+#this test module is only for testing fields in the server_rec
+#listed in apache_structures.map
+
sub handler {
my $r = shift;
@@ -61,9 +64,6 @@
ok $s->limit_req_fields;
Apache::OK;
-
}
1;
-
-__END__
