This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove autodie t/no-all.t tests from Porting/Maintainers.pl
authorTodd Rinaldo <toddr@cpan.org>
Wed, 8 Jan 2020 23:50:35 +0000 (17:50 -0600)
committerTodd Rinaldo <toddr@cpan.org>
Thu, 9 Jan 2020 13:57:04 +0000 (07:57 -0600)
This test requires a module not shipped with core.

MANIFEST
Porting/Maintainers.pl
cpan/autodie/t/no-all.t [deleted file]

index bf10840..cb5c0bb 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -116,7 +116,6 @@ cpan/autodie/t/lib/pujHa/ghach.pm   autodie - Like a Klingon
 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
index 450dee4..30d7172 100755 (executable)
@@ -158,6 +158,7 @@ use File::Glob qw(:case);
                 t/release-pod-syntax.t
                 t/socket.t
                 t/system.t
+                t/no-all.t
                 )
         ],
     },
diff --git a/cpan/autodie/t/no-all.t b/cpan/autodie/t/no-all.t
deleted file mode 100644 (file)
index fadd045..0000000
+++ /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;