In t/50-usleep.t, increase the sleep time

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

diff --git a/t/50-usleep.t b/t/50-usleep.t
index 109f4bce915fd6061a6f635f974b1aebda5c72c1..c1fc98f59149c0018bec4221a3e271c2bd11473e 100644 (file)
--- 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";
 }