435 |
|
|
436 |
|
|
437 |
;;;; Some useful standard reporters: |
;;;; Some useful standard reporters: |
438 |
;;;; Log reporters write all test results to a given log file. |
;;;; Log reporters write all benchmark results to a given log file. |
439 |
;;;; Full reporters write all benchmark results to the standard output. |
;;;; Full reporters write all benchmark results to the standard output. |
440 |
;;;; User reporters write some interesting results to the standard output. |
;;;; User reporters write some interesting results to the standard output. |
441 |
|
|
452 |
(benchmark-core-time\interpreter |
(benchmark-core-time\interpreter |
453 |
(benchmark-core-time\interpreter iterations before after gc-time))) |
(benchmark-core-time\interpreter iterations before after gc-time))) |
454 |
(write (list name iterations |
(write (list name iterations |
455 |
"total:" (/ total-time time-base) |
'total (/ total-time time-base) |
456 |
"user:" (/ user-time time-base) |
'user (/ user-time time-base) |
457 |
"system:" (/ system-time time-base) |
'system (/ system-time time-base) |
458 |
"frame:" (/ frame-time time-base) |
'frame (/ frame-time time-base) |
459 |
"benchmark:" (/ benchmark-time time-base) |
'benchmark (/ benchmark-time time-base) |
460 |
"user/interp:" (/ user-time\interpreter time-base) |
'user/interp (/ user-time\interpreter time-base) |
461 |
"bench/interp:" (/ benchmark-core-time\interpreter time-base) |
'bench/interp (/ benchmark-core-time\interpreter time-base) |
462 |
"gc:" (/ gc-time time-base)) |
'gc (/ gc-time time-base)) |
463 |
port) |
port) |
464 |
(newline port))) |
(newline port))) |
465 |
|
|
484 |
(benchmark-core-time\interpreter |
(benchmark-core-time\interpreter |
485 |
(benchmark-core-time\interpreter iterations before after gc-time))) |
(benchmark-core-time\interpreter iterations before after gc-time))) |
486 |
(write (list name iterations |
(write (list name iterations |
487 |
"user:" (/ user-time time-base) |
'user (/ user-time time-base) |
488 |
"benchmark:" (/ benchmark-time time-base) |
'benchmark (/ benchmark-time time-base) |
489 |
"bench/interp:" (/ benchmark-core-time\interpreter time-base) |
'bench/interp (/ benchmark-core-time\interpreter time-base) |
490 |
"gc:" (/ gc-time time-base)) |
'gc (/ gc-time time-base)) |
491 |
port) |
port) |
492 |
(newline port))) |
(newline port))) |
493 |
|
|
518 |
|
|
519 |
;;; Finally, set the default reporter |
;;; Finally, set the default reporter |
520 |
(set! default-reporter user-reporter) |
(set! default-reporter user-reporter) |
|
|
|