diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-11-29 12:15:11 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-30 01:06:19 +0000 |
| commit | 03ec374d2c2a4dbd05f89d83850179249a7ac42c (patch) | |
| tree | 7f1facdb6398048ee05850c3140fb6ae4137fe52 /t/lib | |
| parent | 3ac87aec43ecd2aab07a3cf8ad94c1a912ec33e8 (diff) | |
| download | perl-03ec374d2c2a4dbd05f89d83850179249a7ac42c.tar.gz | |
get t/lib/filter-util.t to work on VMS
Message-Id: <001129171439.6099b@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7931
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/filter-util.pl | 2 | ||||
| -rw-r--r-- | t/lib/filter-util.t | 28 |
2 files changed, 15 insertions, 15 deletions
diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl index 1615873bc9..9b29c5ef52 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 a0270ee8b7..80c8f56a24 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 |