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'); }