From: Rafael Kitover Date: Mon, 18 Jun 2012 15:11:36 +0000 (-0400) Subject: skip 51threadnodb.t on Win32 on < 5.14 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50e6c52e0;p=dbsrgits%2FDBIx-Class-Historic.git skip 51threadnodb.t on Win32 on < 5.14 SineSwiper reported a crash with a dialog from "make test" in t/51threadnodb.t on Strawberry Perl 5.12 32bit. The test passes on my ActivePerl 64bit 5.14.2 and there is a passing test report for 5.14 here: http://www.cpantesters.org/cpan/report/239d2ae4-87c3-1015-ad08-a09405085451 Disable test on Win32 for perls below 5.14 unless the environment variable TEST_AUTHOR is set to be safe. --- diff --git a/t/51threadnodb.t b/t/51threadnodb.t index 52cdcd8..ea35202 100644 --- a/t/51threadnodb.t +++ b/t/51threadnodb.t @@ -14,6 +14,9 @@ use Test::More; plan skip_all => 'DBIC does not actively support threads before perl 5.8.5' if $] < '5.008005'; +plan skip_all => 'test dangerous on Win32 for < 5.14 set TEST_AUTHOR to run' + if $^O eq 'MSWin32' && $] < 5.014 && !$ENV{TEST_AUTHOR}; + use lib qw(t/lib); use DBICTest;