From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Wed, 29 Nov 2000 17:15:11 +0000 (-0500)
Subject: get t/lib/filter-util.t to work on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03ec374d2c2a4dbd05f89d83850179249a7ac42c;p=p5sagit%2Fp5-mst-13.2.git

get t/lib/filter-util.t to work on VMS
Message-Id: <001129171439.6099b@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@7931
---

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 1615873..9b29c5e 100644
--- a/t/lib/filter-util.pl
+++ b/t/lib/filter-util.pl
@@ -38,7 +38,7 @@ sub ok
 
 $Inc = '' ;
 foreach (@INC)
- { $Inc .= "-I$_ " }
+ { $Inc .= "\"-I$_\" " }
 
 $Perl = '' ;
 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t
index a0270ee..80c8f56 100644
--- a/t/lib/filter-util.t
+++ b/t/lib/filter-util.t
@@ -45,7 +45,7 @@ sub import { filter_add(bless []) }
 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 @@ sub import { filter_add() }
 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 @@ EOF
 
 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 @@ EOF
  
 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 @@ EOF
  
 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 @@ EOF
  
 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 @@ EOF
  
 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 @@ F
  
 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 @@ writeFile($filename, <<EOM, $string ) ;
 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 @@ EOM
 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 @@ I am HERE
 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 @@ I'm HERE
 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 @@ I'm HERE
 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 @@ I'm HERE
 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