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 do...@apache.org on 2001/09/18 21:42:14 UTC
cvs commit: modperl-2.0/t/directive perlrequire.t
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");
}