summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/t/Legacy/Builder/is_passing.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Simple/t/Legacy/Builder/is_passing.t')
-rw-r--r--cpan/Test-Simple/t/Legacy/Builder/is_passing.t11
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;