Skip to content

Commit 89d8929

Browse files
committed
test,benchmarks: put real-time before cpu-time
1 parent c5ff751 commit 89d8929

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

http-easy-test/net/http-easy/benchmarks.rkt

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -99,14 +99,14 @@
9999
['cpu-time old-cpu-time]
100100
['gc-time old-gc-time])
101101
(car existing-benchmarks))
102-
(when (or (> cpu-time (* old-cpu-time tolerance))
103-
(> real-time (* old-real-time tolerance))
102+
(when (or (> real-time (* old-real-time tolerance))
103+
(> cpu-time (* old-cpu-time tolerance))
104104
(> gc-time (* old-gc-time tolerance)))
105105
(fail-check
106106
(string-append
107107
(format "benchmark ~a failed~n" name)
108-
(format " cpu time: ~s (was: ~s; slowdown: ~a)~n" cpu-time old-cpu-time (~slowdown cpu-time old-cpu-time))
109108
(format " real time: ~s (was: ~s; slowdown: ~a)~n" real-time old-real-time (~slowdown real-time old-real-time))
109+
(format " cpu time: ~s (was: ~s; slowdown: ~a)~n" cpu-time old-cpu-time (~slowdown cpu-time old-cpu-time))
110110
(format " gc time: ~s (was: ~s; slowdown: ~a)" gc-time old-gc-time (~slowdown gc-time old-gc-time))))))
111111
(write-benchmarks
112112
(&benchmark

0 commit comments

Comments
 (0)