Bug #100034 for Test-Spec: Fix failure when using Alpha branch of Test::More

The Alpha branch of Test-Simple and friends is quickly approaching stable status. It is already merged into blead perl to find issues like this. This patch makes your test suite pass with both old and new versions of Test::Builder. Please see https://github.com/Test-More/test-more/issues/474 for the discussion of this issue. I have also added a pull request on github if you prefer that.

From 154406c97f1c7c6b036a8e4787a010fb06321504 Mon Sep 17 00:00:00 2001 From: Chad Granum <chad.granum@dreamhost.com> Date: Tue, 4 Nov 2014 15:22:41 -0800 Subject: [PATCH] Fix failure when using Alpha branch of Test::More The Alpha branch of Test-Simple and friends is quickly approaching stable status. It is already merged into blead perl to find issues like this. This patch makes your test suite pass with both old and new versions of Test::Builder. Please see https://github.com/Test-More/test-more/issues/474 for the discussion of this issue. --- t/define.t | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/t/define.t b/t/define.t index b932ebf..3ee60e7 100755 --- a/t/define.t +++ b/t/define.t @@ -114,11 +114,16 @@ is( $on_enter, $on_leave, "entered and left symmetrically" ); is( A->phase, Test::Spec::DEFINITION_PHASE, "definition phase" ); { - no warnings 'once'; - my $stub = Stub->new; - local *A::builder = sub { $stub }; - local *Test::More::builder = sub { $stub }; - A->runtests; + if ($INC{'Test/Stream.pm'}) { + Test::Stream->intercept(sub { A->runtests }); + } + else { + no warnings 'once'; + my $stub = Stub->new; + local *A::builder = sub { $stub }; + local *Test::More::builder = sub { $stub }; + A->runtests; + } } is( A->phase, Test::Spec::EXECUTION_PHASE, "execution phase" ); -- 1.9.1