]> git.vpit.fr Git - perl/modules/VPIT-TestHelpers.git/commitdiff
In t/50-usleep.t, increase the sleep time
authorVincent Pit <vince@profvince.com>
Mon, 20 Apr 2015 14:11:34 +0000 (11:11 -0300)
committerVincent Pit <vince@profvince.com>
Mon, 20 Apr 2015 14:12:10 +0000 (11:12 -0300)
So that the fallback sleep() implementation actually sleeps.

t/50-usleep.t

index 109f4bce915fd6061a6f635f974b1aebda5c72c1..c1fc98f59149c0018bec4221a3e271c2bd11473e 100644 (file)
@@ -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";
 }