stas 2002/08/14 07:27:45
Modified: ModPerl-Registry/t basic.t
Log:
reformat the code according to the spec
Revision Changes Path
1.6 +24 -24 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.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- basic.t 22 May 2002 05:40:48 -0000 1.5
+++ basic.t 14 Aug 2002 14:27:45 -0000 1.6
@@ -6,11 +6,11 @@
use Apache::TestRequest qw(GET_BODY HEAD);
-my %modules =
- (registry => 'ModPerl::Registry',
- registry_bb => 'ModPerl::RegistryBB',
- perlrun => 'ModPerl::PerlRun',
- );
+my %modules = (
+ registry => 'ModPerl::Registry',
+ registry_bb => 'ModPerl::RegistryBB',
+ perlrun => 'ModPerl::PerlRun',
+);
my @aliases = sort keys %modules;
@@ -21,10 +21,10 @@
my $url = "/$alias/basic.pl";
ok t_cmp(
- "ok",
- GET_BODY($url),
- "$modules{$alias} basic cgi test",
- );
+ "ok",
+ GET_BODY($url),
+ "$modules{$alias} basic cgi test",
+ );
}
# test non-executable bit
@@ -32,10 +32,10 @@
my $url = "/$alias/not_executable.pl";
ok t_cmp(
- "403 Forbidden",
- HEAD($url)->status_line(),
- "$modules{$alias} non-executable file",
- );
+ "403 Forbidden",
+ HEAD($url)->status_line(),
+ "$modules{$alias} non-executable file",
+ );
}
# test environment pre-set
@@ -43,22 +43,22 @@
my $url = "/$alias/env.pl?foo=bar";
ok t_cmp(
- "foo=bar",
- GET_BODY($url),
- "$modules{$alias} mod_cgi-like environment pre-set",
- );
+ "foo=bar",
+ GET_BODY($url),
+ "$modules{$alias} mod_cgi-like environment pre-set",
+ );
}
-# chdir is not safe yet!
-#
-# require (actually chdir test)
+# XXX: chdir is not safe yet!
+
+## 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",
-# );
+# "it works",
+# GET_BODY($url),
+# "$modules{$alias} mod_cgi-like environment pre-set",
+# );
#}
