summaryrefslogtreecommitdiff
path: root/cpan/autodie
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/autodie')
-rw-r--r--cpan/autodie/t/no-all.t30
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;