2020-04-27 18:27:48 +00:00
|
|
|
#lang syndicate/test-implementation
|
2018-04-29 10:55:32 +00:00
|
|
|
;; Rough message send speed test
|
|
|
|
|
|
|
|
(let ((N 100000))
|
|
|
|
(test-case
|
|
|
|
[(spawn (on (message $v)
|
|
|
|
(if (= v N)
|
|
|
|
(stop-current-facet)
|
|
|
|
(send! (+ v 1))))
|
|
|
|
(on-start (send! 0)))]
|
|
|
|
no-crashes
|
|
|
|
(it "should be fairly quick"
|
|
|
|
(log-info "Rough message send speed: ~a msgs in ~a ms = ~a Hz"
|
|
|
|
N
|
|
|
|
(test-run-time)
|
|
|
|
(/ N (/ (test-run-time) 1000.0))))))
|