stas 2004/08/13 22:20:19
Modified: t/response/TestDirective cmdparms.pm
Log:
remove excessive spacing
Revision Changes Path
1.6 +7 -7 modperl-2.0/t/response/TestDirective/cmdparms.pm
Index: cmdparms.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/cmdparms.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- cmdparms.pm 14 Aug 2004 04:45:20 -0000 1.5
+++ cmdparms.pm 14 Aug 2004 05:20:19 -0000 1.6
@@ -28,16 +28,16 @@
use constant KEY => "TestCmdParms";
our @APACHE_MODULE_COMMANDS = (
- {
+ {
name => +KEY,
cmd_data => 'cmd_data',
errmsg => 'errmsg',
},
);
-
+
my @methods = qw(cmd context directive info limited override path
pool server temp_pool);
-
+
sub TestCmdParms {
my($self, $parms, $args) = @_;
my $srv_cfg = $self->get_config($parms->server);
@@ -56,7 +56,7 @@
### response handler ###
sub handler : method {
my($self, $r) = @_;
- my $override;
+ my $override;
my $srv_cfg = $self->get_config($r->server);
plan $r, tests => 6 + ( 8 * keys(%$srv_cfg) );
@@ -70,7 +70,7 @@
ok t_cmp(ref($cfg->{server}), 'Apache::ServerRec', 'server');
ok t_cmp($cfg->{limited}, -1, 'limited');
ok t_cmp($cfg->{info}, 'cmd_data', 'cmd_data');
- }
+ }
# vhost
{
@@ -90,7 +90,7 @@
# Location
{
my $loc = $srv_cfg->{Location};
-
+
my $wanted = Apache::ACCESS_CONF |
Apache::OR_INDEXES |
Apache::OR_AUTHCFG |
@@ -101,7 +101,7 @@
ok t_cmp($masked, $wanted, 'override bitmask');
ok t_cmp($loc->{path}, '/TestDirective__cmdparms', 'path');
- ok t_cmp($loc->{check_ctx}, KEY .
+ ok t_cmp($loc->{check_ctx}, KEY .
' cannot occur within <Location> section', 'check_cmd_ctx');
}