diff options
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/strict.t | 3 | ||||
| -rwxr-xr-x | t/pragma/subs.t | 5 | ||||
| -rwxr-xr-x | t/pragma/warning.t | 3 |
3 files changed, 10 insertions, 1 deletions
diff --git a/t/pragma/strict.t b/t/pragma/strict.t index 75856971fa..fc3282089f 100755 --- a/t/pragma/strict.t +++ b/t/pragma/strict.t @@ -9,6 +9,7 @@ BEGIN { $| = 1; my $Is_VMS = $^O eq 'VMS'; +my $Is_MSWin32 = $^O eq 'MSWin32'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -66,6 +67,8 @@ for (@prgs){ close TEST; my $results = $Is_VMS ? `MCR $^X $switch $tmpfile` : + $Is_MSWin32 ? + `.\\perl -I../lib $switch $tmpfile 2>&1` : `sh -c './perl $switch $tmpfile' 2>&1`; my $status = $?; $results =~ s/\n+$//; diff --git a/t/pragma/subs.t b/t/pragma/subs.t index 33180066e0..056c4bd7cf 100755 --- a/t/pragma/subs.t +++ b/t/pragma/subs.t @@ -12,6 +12,7 @@ my @prgs = split "\n########\n", <DATA>; print "1..", scalar @prgs, "\n"; my $Is_VMS = $^O eq 'VMS'; +my $Is_MSWin32 = $^O eq 'MSWin32'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -46,6 +47,8 @@ for (@prgs){ close TEST; my $results = $Is_VMS ? `MCR $^X $switch $tmpfile` : + $Is_MSWin32 ? + `.\\perl -I../lib $switch $tmpfile 2>&1` : `sh -c './perl $switch $tmpfile' 2>&1`; my $status = $?; $results =~ s/\n+$//; @@ -89,7 +92,7 @@ EXPECT Number found where operator expected at - line 3, near "Fred 1" (Do you need to predeclare Fred?) syntax error at - line 3, near "Fred 1" -Execution of - aborted due to compilation errors. +BEGIN not safe after errors--compilation aborted at - line 4. ######## # AOK diff --git a/t/pragma/warning.t b/t/pragma/warning.t index 3bb70e3ce8..fa0301ea6a 100755 --- a/t/pragma/warning.t +++ b/t/pragma/warning.t @@ -9,6 +9,7 @@ BEGIN { $| = 1; my $Is_VMS = $^O eq 'VMS'; +my $Is_MSWin32 = $^O eq 'MSWin32'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -67,6 +68,8 @@ for (@prgs){ close TEST; my $results = $Is_VMS ? `MCR $^X $switch $tmpfile` : + $Is_MSWin32 ? + `.\\perl -I../lib $switch $tmpfile 2>&1` : `sh -c './perl $switch $tmpfile' 2>&1`; my $status = $?; $results =~ s/\n+$//; |