You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/03/08 04:20:36 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t basic.t
stas 2003/03/07 19:20:36
Modified: ModPerl-Registry/t basic.t
Log:
restore the tests, committed by mistake before ;(
Revision Changes Path
1.10 +44 -45 modperl-2.0/ModPerl-Registry/t/basic.t
Index: basic.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/basic.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- basic.t 7 Feb 2003 02:49:01 -0000 1.9
+++ basic.t 8 Mar 2003 03:20:36 -0000 1.10
@@ -13,52 +13,51 @@
my @aliases = sort keys %modules;
-plan tests => 2;
-#plan tests => @aliases * 4 + 2;
+plan tests => @aliases * 4 + 2;
-## very basic compilation/response test
-#for my $alias (@aliases) {
-# my $url = "/$alias/basic.pl";
-
-# ok t_cmp(
-# "ok",
-# GET_BODY($url),
-# "$modules{$alias} basic cgi test",
-# );
-#}
-
-## test non-executable bit
-#for my $alias (@aliases) {
-# my $url = "/$alias/not_executable.pl";
-
-# ok t_cmp(
-# "403 Forbidden",
-# HEAD($url)->status_line(),
-# "$modules{$alias} non-executable file",
-# );
-#}
-
-## test environment pre-set
-#for my $alias (@aliases) {
-# my $url = "/$alias/env.pl?foo=bar";
-
-# ok t_cmp(
-# "foo=bar",
-# GET_BODY($url),
-# "$modules{$alias} mod_cgi-like environment pre-set",
-# );
-#}
-
-## require (actually chdir test)
-#for my $alias (@aliases) {
-# my $url = "/$alias/require.pl";
-
-# ok t_cmp(
-# "it works",
-# GET_BODY($url),
-# "$modules{$alias} mod_cgi-like environment pre-set",
-# );
-#}
+# very basic compilation/response test
+for my $alias (@aliases) {
+ my $url = "/$alias/basic.pl";
+
+ ok t_cmp(
+ "ok",
+ GET_BODY($url),
+ "$modules{$alias} basic cgi test",
+ );
+}
+
+# test non-executable bit
+for my $alias (@aliases) {
+ my $url = "/$alias/not_executable.pl";
+
+ ok t_cmp(
+ "403 Forbidden",
+ HEAD($url)->status_line(),
+ "$modules{$alias} non-executable file",
+ );
+}
+
+# test environment pre-set
+for my $alias (@aliases) {
+ my $url = "/$alias/env.pl?foo=bar";
+
+ ok t_cmp(
+ "foo=bar",
+ GET_BODY($url),
+ "$modules{$alias} mod_cgi-like environment pre-set",
+ );
+}
+
+# require (actually chdir test)
+for my $alias (@aliases) {
+ my $url = "/$alias/require.pl";
+
+ ok t_cmp(
+ "it works",
+ GET_BODY($url),
+ "$modules{$alias} mod_cgi-like environment pre-set",
+ );
+}
# test method handlers
{