diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/base/num.t | 5 | ||||
| -rw-r--r-- | t/comp/parser.t | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/t/base/num.t b/t/base/num.t index ccabe0734b..f91528169e 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -163,7 +163,10 @@ $a = 123.456; "$a"; print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n"; $a = 1e34; "$a"; -print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; +unless ($^O eq 'posix-bc') +{ print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; } +else +{ print "ok 45 # skipped on $^O\n"; } # see bug #15073 diff --git a/t/comp/parser.t b/t/comp/parser.t index ca191c2de0..c68f7ab5aa 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -128,7 +128,7 @@ EOF { local $SIG{__WARN__} = sub { }; # silence mandatory warning eval q{ my $x = -F 1; }; - like( $@, qr/syntax error .* near "F 1"/, "unknown filetest operators" ); + like( $@, qr/(?:syntax|parse) error .* near "F 1"/, "unknown filetest operators" ); is( eval q{ sub F { 42 } -F 1 }, '-42', |