This test requires a module not shipped with core.
cpan/autodie/t/lib/pujHa/ghach/Dotlh.pm autodie - With Klingon honour
cpan/autodie/t/lib/Some/Module.pm autodie - blog_hints.t helper
cpan/autodie/t/mkdir.t autodie - filesystem tests
-cpan/autodie/t/no-all.t
cpan/autodie/t/no-default.t
cpan/autodie/t/no_carp.t
cpan/autodie/t/open.t autodie - Testing open
t/release-pod-syntax.t
t/socket.t
t/system.t
+ t/no-all.t
)
],
},
+++ /dev/null
-#!/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;