diff options
Diffstat (limited to 't/op/filetest.t')
| -rw-r--r-- | t/op/filetest.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/filetest.t b/t/op/filetest.t index 26d3cddcdf..86ad23546f 100644 --- a/t/op/filetest.t +++ b/t/op/filetest.t @@ -10,7 +10,7 @@ BEGIN { } use Config; -plan(tests => 44 + 27*14); +plan(tests => 45 + 27*14); ok( -d 'op' ); ok( -f 'TEST' ); @@ -237,6 +237,12 @@ for my $op (split //, "rwxoRWXOezsfdlpSbctugkTMBAC") { is $foo[0], "bar", '-l bareword does not corrupt the stack'; } +# -l and fatal warnings +stat "test.pl"; +eval { use warnings FATAL => io; -l cradd }; +ok !stat _, + 'fatal warnings do not prevent -l HANDLE from setting stat status'; + # File test ops should not call get-magic on the topmost SV on the stack if # it belongs to another op. { |