require 'lib/filter-util.pl';
}
+use strict;
+use warnings;
+
+use vars qw($Inc $Perl);
+
print "1..28\n" ;
$Perl = "$Perl -w" ;
use Cwd ;
-$here = getcwd ;
+my $here = getcwd ;
-use vars qw($Inc $Perl);
-$filename = "call.tst" ;
-$filenamebin = "call.bin" ;
-$module = "MyTest" ;
-$module2 = "MyTest2" ;
-$module3 = "MyTest3" ;
-$module4 = "MyTest4" ;
-$module5 = "MyTest5" ;
-$nested = "nested" ;
-$block = "block" ;
+my $filename = "call.tst" ;
+my $filenamebin = "call.bin" ;
+my $module = "MyTest" ;
+my $module2 = "MyTest2" ;
+my $module3 = "MyTest3" ;
+my $module4 = "MyTest4" ;
+my $module5 = "MyTest5" ;
+my $nested = "nested" ;
+my $block = "block" ;
# Test error cases
##################
1 ;
EOM
-$a = `$Perl -I. $Inc -e "use ${module} ;" 2>&1` ;
+my $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"/) ;
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/) ;
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
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
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!
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
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
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
1 ;
EOM
-$string = <<'EOM' ;
+my $string = <<'EOM' ;
print "hello mum\n" ;
$x = 'me ' x 3 ;
print "Who wants it?\n$x\n" ;
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
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
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) ;
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) ;
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
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