fix broken test
Test added in 8ee717520f
was broken, because it used
`(current-milliseconds)` instead of `(current-ienxact-milliseconds)`
to construct an argument to`alarm-evt`'
This commit is contained in:
parent
58cc3e91c3
commit
24eb509d15
|
@ -1432,7 +1432,7 @@
|
|||
(test val values got)))
|
||||
|
||||
(try values 'ok-channel)
|
||||
(try (lambda (c) (choice-evt c (alarm-evt (+ 10000 (current-milliseconds)))))
|
||||
(try (lambda (c) (choice-evt c (alarm-evt (+ 10000 (current-inexact-milliseconds)))))
|
||||
'ok-channel+alarm))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
|
Loading…
Reference in New Issue
Block a user