File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
http-easy-test/net/http-easy Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 99
99
['cpu-time old-cpu-time]
100
100
['gc-time old-gc-time])
101
101
(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))
104
104
(> gc-time (* old-gc-time tolerance)))
105
105
(fail-check
106
106
(string-append
107
107
(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))
109
108
(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))
110
110
(format " gc time: ~s (was: ~s; slowdown: ~a) " gc-time old-gc-time (~slowdown gc-time old-gc-time))))))
111
111
(write-benchmarks
112
112
(&benchmark
You can’t perform that action at this time.
0 commit comments