jwoolley 01/11/11 19:53:09
Modified: perl-framework/t/modules cgi.t
Log:
Use #'s on debug commentary lines
Submitted by: Stas Bekman
Revision Changes Path
1.10 +18 -18 httpd-test/perl-framework/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/cgi.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -u -r1.9 -r1.10
--- cgi.t 2001/11/12 02:54:39 1.9
+++ cgi.t 2001/11/12 03:53:09 1.10
@@ -61,7 +61,7 @@
foreach (sort keys %test) {
$expected = $test{$_}{rc};
$actual = GET_RC "$path/$_";
- print "return code for $_: $actual, expecting: $expected\n";
+ print "# return code for $_: $actual, expecting: $expected\n";
ok ($actual eq $expected);
unless ($test{$_}{expect} eq 'none') {
@@ -69,7 +69,7 @@
$actual = GET_BODY "$path/$_";
chomp $actual if $actual =~ /\n$/;
- print "body for $_: $actual, expecting: $expected\n";
+ print "# body for $_: $actual, expecting: $expected\n";
ok ($actual eq $expected);
}
@@ -81,12 +81,12 @@
## make sure cgi log got created, get size.
if (-e $cgi_log) {
- print "cgi log created ok.\n";
+ print "# cgi log created ok.\n";
ok 1;
$stat = stat($cgi_log);
$log_size = $$stat[7];
} else {
- print "error: cgi log not created!\n";
+ print "# error: cgi log not created!\n";
ok 0;
}
} else {
@@ -94,11 +94,11 @@
## make sure log got bigger.
if (-e $cgi_log) {
$stat = stat($cgi_log);
- print "checking that log size ($$stat[7]) is bigger than it
used to be ($log_size)\n";
+ print "# checking that log size ($$stat[7]) is bigger than
it used to be ($log_size)\n";
ok ($$stat[7] > $log_size);
$log_size = $$stat[7];
} else {
- print "error: cgi log does not exist!\n";
+ print "# error: cgi log does not exist!\n";
ok 0;
}
}
@@ -113,8 +113,8 @@
$expected = '500';
$actual = POST_RC "$path/bogus-perl.pl", content => "$content"x$length;
- print "posted content (length $length) to bogus-perl.pl\n";
- print "got return code of: $actual, expecting: $expected\n";
+ print "# posted content (length $length) to bogus-perl.pl\n";
+ print "# got return code of: $actual, expecting: $expected\n";
## should get rc 500
ok ($actual eq $expected);
@@ -123,12 +123,12 @@
## as long as it's under ScriptLogLength (8192)
$stat = stat($cgi_log);
if ($log_size < 8192) {
- print "checking that log size ($$stat[7]) is greater than
$log_size\n";
+ print "# checking that log size ($$stat[7]) is greater than
$log_size\n";
ok ($$stat[7] > $log_size);
} else {
## should not fall in here at this point,
## but just in case...
- print "verifying log did not increase in size...\n";
+ print "# verifying log did not increase in size...\n";
ok ($$stat[7] eq $log_size);
}
$log_size = $$stat[7];
@@ -141,7 +141,7 @@
if (/^$content+$/) {
chomp;
$multiplier = $length unless $length > $multiplier;
- print "verifying that logged content is $multiplier
characters\n";
+ print "# verifying that logged content is $multiplier
characters\n";
ok ($_ eq "$content"x$multiplier);
last;
}
@@ -150,7 +150,7 @@
} else {
## log does not exist ##
- print "cgi log does not exist, test fails.\n";
+ print "# cgi log does not exist, test fails.\n";
ok 0;
}
}
@@ -174,31 +174,31 @@
}
## make sure its over (or equal) 8192
-print "verifying log is greater than 8192 bytes.\n";
+print "# verifying log is greater than 8192 bytes.\n";
ok ($log_size >= 8192);
## make sure it does not grow now.
GET_RC "$path/bogus1k.pl";
-print "verifying log did not grow after making bogus request.\n";
+print "# verifying log did not grow after making bogus request.\n";
if (-e $cgi_log) {
$stat = stat($cgi_log);
ok ($log_size eq $$stat[7]);
} else {
- print "log does not exist!\n";
+ print "# log does not exist!\n";
ok 0;
}
GET_RC "$path/bogus-perl.pl";
-print "verifying log did not grow after making another bogus request.\n";
+print "# verifying log did not grow after making another bogus request.\n";
if (-e $cgi_log) {
$stat = stat($cgi_log);
ok ($log_size eq $$stat[7]);
} else {
- print "log does not exist!\n";
+ print "# log does not exist!\n";
ok 0;
}
-print "checking that HEAD $path/perl.pl returns 200.\n";
+print "# checking that HEAD $path/perl.pl returns 200.\n";
ok HEAD_RC("$path/perl.pl") == 200;
## clean up
