You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by co...@apache.org on 2002/01/03 03:35:17 UTC
cvs commit: httpd-test/perl-framework/t/modules access.t
coar 02/01/02 18:35:17
Modified: perl-framework/t/modules access.t
Log:
Put the '#' prefix on verbose emissions
Revision Changes Path
1.9 +18 -15 httpd-test/perl-framework/t/modules/access.t
Index: access.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/access.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -u -r1.8 -r1.9
--- access.t 21 Dec 2001 02:34:23 -0000 1.8
+++ access.t 3 Jan 2002 02:35:17 -0000 1.9
@@ -48,14 +48,15 @@
$config_string = "Order $order\nAllow $allow\n";
write_htaccess($config_string);
- print "---\n$config_string";
+ print "#---\n# ",
+ join("\n# ", split(/\n/, $config_string)), "\n";
if ($order eq 'deny,allow') {
## if allowing by default,
## there is no 'Deny' directive, so everything
## is allowed.
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
@@ -68,13 +69,13 @@
|| $allow eq 'from all') {
## if we are explicitly allowed, its ok
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
} else {
## otherwise, not ok
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
}
}
@@ -84,7 +85,8 @@
$config_string = "Order $order\nDeny $deny\n";
write_htaccess($config_string);
- print "---\n$config_string";
+ print "#---\n# ",
+ join("\n# ", split(/\n/, $config_string)), "\n";
if ($order eq 'deny,allow') {
@@ -96,13 +98,13 @@
## if we are denied explicitly
## its not ok
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
} else {
## otherwise, ok
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
}
@@ -111,7 +113,7 @@
## if denying by default
## there is no 'Allow' directive, so
## everything is denied.
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
}
@@ -119,7 +121,8 @@
$config_string = "Order $order\nAllow $allow\nDeny $deny\n";
write_htaccess($config_string);
- print "---\n$config_string";
+ print "#---\n# ",
+ join("\n# ", split(/\n/, $config_string)), "\n";
if ($order eq 'deny,allow') {
@@ -131,7 +134,7 @@
## we are explicitly allowed
## so it is ok.
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
} elsif ($deny =~ /^from $addr1/
@@ -141,7 +144,7 @@
## if we are not explicitly allowed
## and are explicitly denied,
## we are denied access.
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
} else {
@@ -149,7 +152,7 @@
## if we are not explicity allowed
## or explicitly denied,
## we get access.
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
}
@@ -163,7 +166,7 @@
## if we are explicitly denied,
## we get no access.
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
} elsif ($allow =~ /^from $addr1/
@@ -173,7 +176,7 @@
## if we are not explicitly denied
## and are explicitly allowed,
## we get access.
- print "expecting access.\n";
+ print "# expecting access.\n";
ok GET_OK "/modules/access/htaccess/index.html";
} else {
@@ -181,7 +184,7 @@
## if we are not explicitly denied
## and not explicitly allowed,
## we get no access.
- print "expecting access denial.\n";
+ print "# expecting access denial.\n";
ok !GET_OK "/modules/access/htaccess/index.html";
}