Add a select()-based usleep() implementation

[perl/modules/VPIT-TestHelpers.git] / t / 50-usleep.t

diff --git a/t/50-usleep.t b/t/50-usleep.t
index 109f4bce915fd6061a6f635f974b1aebda5c72c1..15592ec9b12ea918abe0d9c91eb36f5e8a4d95d3 100644 (file)
--- a/t/50-usleep.t
+++ b/t/50-usleep.t
@@ -7,7 +7,7 @@ use VPIT::TestHelpers;
 
 use Test::More;
 
-my @impls = qw<Time::HiRes sleep>;
+my @impls = qw<Time::HiRes select sleep>;
 
 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";
 }