This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f12bac9
)
Benchmark.t: fix skip() call
author
David Mitchell
<davem@iabyn.com>
Thu, 13 Jun 2013 08:00:56 +0000
(09:00 +0100)
committer
David Mitchell
<davem@iabyn.com>
Thu, 13 Jun 2013 08:00:56 +0000
(09:00 +0100)
lib/Benchmark.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/Benchmark.t
b/lib/Benchmark.t
index
bb25cd8
..
b7d4e7c
100644
(file)
--- a/
lib/Benchmark.t
+++ b/
lib/Benchmark.t
@@
-155,7
+155,7
@@
$in_onesec_adj *= (1/$cpu1); # adjust because may not have run for exactly 1s
print "# in_onesec_adj=$in_onesec_adj adjusted iterations\n";
SKIP: {
- skip("INCONSISTENT CLOCK") if $INCONSISTENT_CLOCK;
+ skip(
1,
"INCONSISTENT CLOCK") if $INCONSISTENT_CLOCK;
ok(cmp_delta($in_onesec_adj, $estimate, $DELTA),
"is $in_onesec_adj within $DELTA of estimate ($estimate)?")