X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-usleep.t;h=217231d19cb9fb2b8864f700bdada1adab45b68a;hb=2a6ac0f1b934d60631de30d3f14a38667b389cad;hp=c1fc98f59149c0018bec4221a3e271c2bd11473e;hpb=c74c9fd4e7aba647072b0e8d66b3b962491c4a79;p=perl%2Fmodules%2FVPIT-TestHelpers.git

diff --git a/t/50-usleep.t b/t/50-usleep.t
index c1fc98f..217231d 100644
--- a/t/50-usleep.t
+++ b/t/50-usleep.t
@@ -7,7 +7,9 @@ use VPIT::TestHelpers;
 
 use Test::More;
 
-my @impls = qw<Time::HiRes sleep>;
+my @impls = qw<Time::HiRes select sleep>;
+
+my $duration = 1e5;
 
 for my $impl (@impls) {
  my $desc = "$impl-based usleep()";
@@ -26,8 +28,8 @@ for my $impl (@impls) {
   eval 'defined &main::usleep';
  };
  ok $has_usleep, "$desc was imported";
- my $ret = usleep(1e6);
- cmp_ok $ret, '>=', 1e6, "$desc did sleep";
+ my $ret = usleep($duration);
+ cmp_ok $ret, '>=', $duration, "$desc did sleep";
  diag "$desc actually slept $ret microseconds";
 }