From 43bd48014c89331cc0dadad78190890199469e81 Mon Sep 17 00:00:00 2001 From: Syohei YOSHIDA Date: Wed, 24 Jun 2015 18:02:57 +0900 Subject: [PATCH 2/2] Fix test code MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In original code, mismatching plan error is occurred. Signed-off-by: Petr Písař --- t/900_mouse_bugs/017_issue29.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/t/900_mouse_bugs/017_issue29.t b/t/900_mouse_bugs/017_issue29.t index 14c2900..bc93767 100644 --- a/t/900_mouse_bugs/017_issue29.t +++ b/t/900_mouse_bugs/017_issue29.t @@ -3,10 +3,13 @@ package main; use strict; use warnings; -use Test::More skip_all => 'See https://github.com/gfx/p5-Mouse/issues/29'; - -use Test::Requires qw(threads); # XXX: ithreads is discuraged! +use constant HAS_THREADS => eval{ require threads && require threads::shared }; +use Test::More; +use if !HAS_THREADS, 'Test::More', + (skip_all => "This is a test for threads ($@)"); +use if $Test::More::VERSION >= 2.00, 'Test::More', + (skip_all => "Test::Builder2 has bugs about threads"); { package Foo; -- 2.1.0