diff options
Diffstat (limited to 'cpan/Test-Simple/t/Legacy/Builder/is_passing.t')
-rw-r--r-- | cpan/Test-Simple/t/Legacy/Builder/is_passing.t | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/cpan/Test-Simple/t/Legacy/Builder/is_passing.t b/cpan/Test-Simple/t/Legacy/Builder/is_passing.t index d335aada57..d0aed0c2a4 100644 --- a/cpan/Test-Simple/t/Legacy/Builder/is_passing.t +++ b/cpan/Test-Simple/t/Legacy/Builder/is_passing.t @@ -5,7 +5,9 @@ use lib 't/lib'; # We're going to need to override exit() later BEGIN { - *CORE::GLOBAL::exit = sub(;$) { + require Test2::Hub; + no warnings 'redefine'; + *Test2::Hub::terminate = sub { my $status = @_ ? 0 : shift; CORE::exit $status; }; @@ -61,22 +63,19 @@ use Test::Builder::NoOutput; ok $tb->is_passing, " and after the ending"; } - # is_passing() vs skip_all { my $tb = Test::Builder::NoOutput->create; { no warnings 'redefine'; - local *CORE::GLOBAL::exit = sub { - return 1; - }; + local *Test2::Hub::terminate = sub { 1 }; + $tb->plan( "skip_all" ); } ok $tb->is_passing, "Passing with skip_all"; } - # is_passing() vs done_testing(#) { my $tb = Test::Builder::NoOutput->create; |