This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
prevent op/time.t failures on NetBSD 5.1
authorTony Cook <tony@develop-help.com>
Tue, 15 Sep 2015 00:12:04 +0000 (10:12 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 15 Sep 2015 00:12:04 +0000 (10:12 +1000)
- make the watchdog time exceed the maximum time for the "very basic times
  test".  This doesn't prevent the test from failing, but prevents the
  entire test script from being killed by the watchdog if the times()
  test does fail

- do more work inside the loop, with the previous "burn cycles" loop
  system time was increasing but user time stayed at its starting value.

t/op/time.t

index f5ce339..d3b8b9c 100644 (file)
@@ -12,7 +12,7 @@ plan tests => 72;
 # burning tons of CPU for dates far in the future.
 # watchdog() makes sure that the test script eventually exits if
 # the tests are triggering the failing behavior
-watchdog(15);
+watchdog(25);
 
 ($beguser,$begsys) = times;
 
@@ -21,9 +21,9 @@ $beg = time;
 while (($now = time) == $beg) { sleep 1 }
 
 ok($now > $beg && $now - $beg < 10,             'very basic time test');
-
+my $x = "aaaa";
 for ($i = 0; $i < 1_000_000; $i++) {
-    for my $j (1..100) {}; # burn some user cycles
+    for my $j (1..1000) { ++$x; }; # burn some user cycles
     ($nowuser, $nowsys) = times;
     $i = 2_000_000 if $nowuser > $beguser && ( $nowsys >= $begsys ||
                                             (!$nowsys && !$begsys));