dougm 01/09/18 12:42:14 Modified: t/directive perlrequire.t Log: pass this test with non-ithreads perls Revision Changes Path 1.2 +8 -9 modperl-2.0/t/directive/perlrequire.t Index: perlrequire.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/directive/perlrequire.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- perlrequire.t 2001/09/18 02:00:19 1.1 +++ perlrequire.t 2001/09/18 19:42:14 1.2 @@ -8,12 +8,13 @@ use Apache::TestUtil; use Apache::TestRequest (); -my %checks = - ( - 'default' => 'PerlRequired by Parent', - 'TestDirective::perlrequire' => 'PerlRequired by VirtualHost', - ); +my %checks = ( + 'default' => 'PerlRequired by Parent', + 'TestDirective::perlrequire' => 'PerlRequired by VirtualHost', +); +delete $checks{'TestDirective::perlrequire'} unless have_perl 'ithreads'; + plan tests => scalar keys %checks; for my $module (sort keys %checks) { @@ -23,9 +24,7 @@ my $hostport = Apache::TestRequest::hostport($config); print "connecting to $hostport\n"; - ok t_cmp( - $checks{$module}, + ok t_cmp($checks{$module}, $config->http_raw_get("/TestDirective::perlrequire", undef), - "testing PerlRequire in $module", - ); + "testing PerlRequire in $module"); }