Author: timbo Date: Tue Nov 24 05:20:30 2009 New Revision: 13592 Modified: dbi/trunk/t/35thrclone.t
Log: Provide a little insurance against thread scheduling issues (hopefully) e.g. http://www.nntp.perl.org/group/perl.cpan.testers/2009/06/msg4369660.html Modified: dbi/trunk/t/35thrclone.t ============================================================================== --- dbi/trunk/t/35thrclone.t (original) +++ dbi/trunk/t/35thrclone.t Tue Nov 24 05:20:30 2009 @@ -17,7 +17,7 @@ die $use_threads_err if $use_threads_err; # need threads } -my $threads = 10; +my $threads = 4; plan tests => 4 + 4 * $threads; { @@ -65,6 +65,10 @@ foreach my $thread (@thr) { $thread->join; + + # provide a little insurance against thread scheduling issues (hopefully) + # http://www.nntp.perl.org/group/perl.cpan.testers/2009/06/msg4369660.html + eval { select undef, undef, undef, 0.2 }; } pass('... all tests have passed');
