X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-usleep.t;h=15592ec9b12ea918abe0d9c91eb36f5e8a4d95d3;hb=6e034dba301409cee65c0f76f094eb8eb4b42110;hp=109f4bce915fd6061a6f635f974b1aebda5c72c1;hpb=ded5cdb5a343bc4e48b7a3f19968af3af55a7c0f;p=perl%2Fmodules%2FVPIT-TestHelpers.git diff --git a/t/50-usleep.t b/t/50-usleep.t index 109f4bc..15592ec 100644 --- a/t/50-usleep.t +++ b/t/50-usleep.t @@ -7,7 +7,7 @@ use VPIT::TestHelpers; use Test::More; -my @impls = qw; +my @impls = qw; for my $impl (@impls) { my $desc = "$impl-based usleep()"; @@ -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"; }