From: Brian Gottreu Date: Fri, 21 Jun 2013 00:28:23 +0000 (-0700) Subject: Benchmark.t: fix skip() argument order X-Git-Tag: upstream/5.20.0~3034 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4b2a788cef03c6515f65b9f816d0c99f43054b1d;p=platform%2Fupstream%2Fperl.git Benchmark.t: fix skip() argument order --- diff --git a/AUTHORS b/AUTHORS index 44f52e2..c945fc6 100644 --- a/AUTHORS +++ b/AUTHORS @@ -163,6 +163,7 @@ Brian Carlson Brian Clarke brian d foy Brian Fraser +Brian Gottreu Brian Greenfield Brian Grossman Brian Harrison diff --git a/lib/Benchmark.t b/lib/Benchmark.t index b7d4e7c..1b8d4b4 100644 --- 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(1, "INCONSISTENT CLOCK") if $INCONSISTENT_CLOCK; + skip("INCONSISTENT CLOCK", 1) if $INCONSISTENT_CLOCK; ok(cmp_delta($in_onesec_adj, $estimate, $DELTA), "is $in_onesec_adj within $DELTA of estimate ($estimate)?")