diff options
Diffstat (limited to 'cpan/autodie')
-rw-r--r-- | cpan/autodie/t/no-all.t | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/cpan/autodie/t/no-all.t b/cpan/autodie/t/no-all.t deleted file mode 100644 index fadd0458c6..0000000000 --- a/cpan/autodie/t/no-all.t +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/perl - -package foo; -use warnings; -use strict; - -use Test::More; - -BEGIN { - eval 'use IPC::System::Simple'; ## no critic - plan skip_all => "Optional IPC::System::Simple required to do this test" if $@; -} -plan tests => 1; - -use autodie qw(:all); - -use_system(); -ok("system() works with a lexical 'no autodie' block (github issue #69"); - -sub break_system { - no autodie; - open(my $fh, "<", 'NONEXISTENT'); - ok("survived failing open"); -} - -sub use_system { - system($^X, '-e' , 1); -} - -1; |