summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t')
-rw-r--r--cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t31
1 files changed, 0 insertions, 31 deletions
diff --git a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t
deleted file mode 100644
index 5f8abea6a6..0000000000
--- a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-my @warnings;
-local $SIG{__WARN__} = sub { push @warnings, $_[0] };
-
-subtest my_subtest1 => sub {
- my $file = __FILE__;
- $file =~ s/\.t$/1.load/;
- do $file;
-};
-
-is(scalar(@warnings), 1, "one warning");
-like(
- $warnings[0],
- qr/^SKIP_ALL in subtest via 'BEGIN' or 'use'/,
- "the warning"
-);
-
-
-subtest my_subtest2 => sub {
- my $file = __FILE__;
- $file =~ s/\.t$/2.load/;
- do $file;
-};
-
-done_testing;