stas 2004/02/26 15:13:04
Modified: t/response/TestAPI conn_rec.pm
Log:
use a proper keepalive test against the constant
Revision Changes Path
1.9 +4 -2 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.8
retrieving revision 1.9
diff -u -u -r1.8 -r1.9
--- conn_rec.pm 23 Aug 2003 03:57:09 -0000 1.8
+++ conn_rec.pm 26 Feb 2004 23:13:04 -0000 1.9
@@ -11,7 +11,7 @@
use Apache::Connection ();
use Apache::Const -compile => qw(OK REMOTE_HOST REMOTE_NAME
- REMOTE_NOLOOKUP REMOTE_DOUBLE_REV);
+ REMOTE_NOLOOKUP REMOTE_DOUBLE_REV CONN_CLOSE);
#this test module is only for testing fields in the conn_rec
#listed in apache_structures.map
@@ -43,7 +43,9 @@
ok $c->aborted || 1;
- ok $c->keepalive || 1;
+ ok t_cmp(Apache::CONN_CLOSE,
+ $c->keepalive,
+ "the client has issued a non-keepalive request");
ok $c->local_ip;
