dougm 00/12/22 16:04:37
Modified: . Changes
t/modules cgi.t
t/net/perl constants.pl
Log:
adjust test output (modules/{cgi,constants}) to make 5.7.0-dev
Test::Harness happy
Revision Changes Path
1.563 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.562
retrieving revision 1.563
diff -u -r1.562 -r1.563
--- Changes 2000/12/22 20:56:24 1.562
+++ Changes 2000/12/23 00:04:36 1.563
@@ -10,6 +10,9 @@
=item 1.24_02-dev
+adjust test output (modules/{cgi,constants}) to make 5.7.0-dev
+Test::Harness happy
+
fix $r->custom_response bug which was triggering core dumps if no
ErrorDocuments were configured, thanks to Paul Hodges for the spot
1.8 +1 -1 modperl/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl/t/modules/cgi.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- cgi.t 1999/08/03 23:25:15 1.7
+++ cgi.t 2000/12/23 00:04:36 1.8
@@ -36,7 +36,7 @@
print "1..$tests\nok 1\n";
print fetch($ua, "http://$net::httpserver$net::perldir/cgi.pl?PARAM=2");
print fetch($ua, "http://$net::httpserver$net::perldir/cgi.pl?PARAM=%33");
-print upload($ua, "http://$net::httpserver$net::perldir/cgi.pl", "4 (fileupload)");
+print upload($ua, "http://$net::httpserver$net::perldir/cgi.pl", "4 #(fileupload)");
if($test_mod_cgi) {
print fetch($ua, "http://$net::httpserver/cgi-bin/cgi.pl?PARAM=5");
}
1.11 +1 -1 modperl/t/net/perl/constants.pl
Index: constants.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/constants.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- constants.pl 1998/11/24 23:15:12 1.10
+++ constants.pl 2000/12/23 00:04:37 1.11
@@ -64,7 +64,7 @@
eval {
$name = Apache::Constants->name($val);
};
- print defined $val ? "" : "not ", "ok $ix ($name|$sym: $val)\n";
+ print defined $val ? "" : "not ", "ok $ix #($name|$sym: $val)\n";
$ix++;
last if $ix >= $tests;
}
