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 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";
   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";
 }
 
  diag "$desc actually slept $ret microseconds";
 }