From: Vincent Pit Date: Mon, 20 Apr 2015 14:11:34 +0000 (-0300) Subject: In t/50-usleep.t, increase the sleep time X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVPIT-TestHelpers.git;a=commitdiff_plain;h=c74c9fd4e7aba647072b0e8d66b3b962491c4a79 In t/50-usleep.t, increase the sleep time So that the fallback sleep() implementation actually sleeps. --- diff --git a/t/50-usleep.t b/t/50-usleep.t index 109f4bc..c1fc98f 100644 --- a/t/50-usleep.t +++ b/t/50-usleep.t @@ -26,8 +26,8 @@ for my $impl (@impls) { eval 'defined &main::usleep'; }; ok $has_usleep, "$desc was imported"; - my $ret = usleep(100); - pass "$desc did sleep"; + my $ret = usleep(1e6); + cmp_ok $ret, '>=', 1e6, "$desc did sleep"; diag "$desc actually slept $ret microseconds"; }