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;