diff options
author | Todd Rinaldo <toddr@cpan.org> | 2020-01-08 17:50:35 -0600 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2020-01-09 07:57:04 -0600 |
commit | 1b173b1fa53496c5a579f43695eb238b2dd8e06a (patch) | |
tree | 1ecf495d3b7af68397d21408d5cebc2af6afaeb9 /cpan/autodie | |
parent | e4cce63d942fd52162dd876c1c5fae29a469b707 (diff) | |
download | perl-1b173b1fa53496c5a579f43695eb238b2dd8e06a.tar.gz |
Remove autodie t/no-all.t tests from Porting/Maintainers.pl
This test requires a module not shipped with core.
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; |