diff options
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.t | 31 |
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; |