Okay, here's a patch that seems to fix the t/lib/filter-util.t tests
on VMS.
And (as somewhat prematurely predicted), it's a "add quotes to the
command line" fix. So maybe we're getting the error messages emitted
when we really need them, after all.
The patch also has some bits to clean up the mess after the tests.
Seems that at least the FNF message were because we didn't have directories
in @INC that were necessary. And while the quotes around -I. aren't
*strictly* needed because . is already in @INC, I don't think it's very
good form to have an extraneous -i. in the options list.
Tests okay on VMS 6.2, both VMS-debug and non-debug versions.
diff -uBb t/lib/filter-util.pl-orig t/lib/filter-util.pl
--- t/lib/filter-util.pl-orig Wed Nov 29 08:43:40 2000
+++ t/lib/filter-util.pl Wed Nov 29 08:32:52 2000
@@ -38,7 +38,7 @@
$Inc = '' ;
foreach (@INC)
- { $Inc .= "-I$_ " }
+ { $Inc .= "\"-I$_\" " }
$Perl = '' ;
$Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
diff -uBb t/lib/filter-util.t-orig t/lib/filter-util.t
--- t/lib/filter-util.t-orig Wed Nov 29 08:43:33 2000
+++ t/lib/filter-util.t Wed Nov 29 11:11:49 2000
@@ -45,7 +45,7 @@
1 ;
EOM
-$a = `$Perl -I. $Inc -e "use ${module} ;" 2>&1` ;
+$a = `$Perl "-I." $Inc -e "use ${module} ;" 2>&1` ;
ok(1, (($? >>8) != 0 or ($^O eq 'MSWin32' && $? != 0))) ;
ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/) ;
@@ -62,7 +62,7 @@
1 ;
EOM
-$a = `$Perl -I. $Inc -e "use ${module} ;" 2>&1` ;
+$a = `$Perl "-I." $Inc -e "use ${module} ;" 2>&1` ;
ok(3, (($? >>8) != 0 or ($^O eq 'MSWin32' && $? != 0))) ;
#ok(4, $a =~ /^usage: filter_add\(ref\) at ${module}.pm/) ;
ok(4, $a =~ /^Not enough arguments for Filter::Util::Call::filter_add/) ;
@@ -114,7 +114,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(5, ($? >>8) == 0) ;
ok(6, $a eq <<EOM) ;
I am $here
@@ -163,7 +163,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(7, ($? >>8) == 0) ;
ok(8, $a eq <<EOM) ;
I am $here
@@ -278,7 +278,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(9, ($? >>8) == 0) ;
ok(10, $a eq <<EOM) ;
I'm feeling used!
@@ -340,7 +340,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(11, ($? >>8) == 0) ;
ok(12, $a eq <<EOM) ;
some letters PQRPQR PQR PQR
@@ -399,7 +399,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(13, ($? >>8) == 0) ;
ok(14, $a eq <<EOM) ;
some letters PQRPQR PQR PQR
@@ -459,7 +459,7 @@
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(15, ($? >>8) == 0) ;
ok(16, $a eq <<EOM) ;
don't cut me in half
@@ -506,7 +506,7 @@
use $block ;
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(17, ($? >>8) == 0) ;
ok(18, $a eq <<EOM) ;
hello mum
@@ -554,7 +554,7 @@
print "We are in DIR\n" ;
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(19, ($? >>8) == 0) ;
ok(20, $a eq <<EOM) ;
We are in $here
@@ -605,7 +605,7 @@
HERE today gone tomorrow\n" ;
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(21, ($? >>8) == 0) ;
ok(22, $a eq <<EOM) ;
@@ -655,7 +655,7 @@
HERE today gone tomorrow\n" ;
EOM
-$a = `$Perl -I. $Inc $filenamebin 2>&1` ;
+$a = `$Perl "-I." $Inc $filenamebin 2>&1` ;
ok(23, ($? >>8) == 0) ;
ok(24, $a eq <<EOM) ;
@@ -709,7 +709,7 @@
HERE today gone tomorrow
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(25, ($? >>8) == 0) ;
ok(26, $a eq <<EOM) ;
THERE THERE
@@ -765,7 +765,7 @@
HERE today gone tomorrow
EOM
-$a = `$Perl -I. $Inc $filename 2>&1` ;
+$a = `$Perl "-I." $Inc $filename 2>&1` ;
ok(27, ($? >>8) == 0) ;
ok(28, $a eq <<EOM) ;
THERE THERE
@@ -777,15 +777,13 @@
}
END {
- unlink $filename ;
- unlink $filenamebin ;
- unlink "${module}.pm" ;
- unlink "${module2}.pm" ;
- unlink "${module3}.pm" ;
- unlink "${module4}.pm" ;
- unlink "${module5}.pm" ;
- unlink $nested ;
- unlink "${block}.pm" ;
+ while ( -e $filename && unlink $filename ) {}
+ while ( -e $filenamebin && unlink $filenamebin ) {}
+ while ( -e "${module}.pm" && unlink "${module}.pm" ) {}
+ while ( -e "${module2}.pm" && unlink "${module2}.pm" ) {}
+ while ( -e "${module3}.pm" && unlink "${module3}.pm" ) {}
+ while ( -e "${module4}.pm" && unlink "${module4}.pm" ) {}
+ while ( -e "${module5}.pm" && unlink "${module5}.pm" ) {}
+ while ( -e $nested && unlink $nested ) {}
+ while ( -e "${block}.pm" && unlink "${block}.pm" ) {}
}
-
-
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
