A new test
This commit is contained in:
parent
d4d53fa9ba
commit
0b2b0f4dfa
|
@ -0,0 +1,14 @@
|
||||||
|
#lang syndicate
|
||||||
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
||||||
|
;;; SPDX-FileCopyrightText: Copyright © 2022 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
||||||
|
|
||||||
|
(module+ test
|
||||||
|
(standard-actor-system (ds)
|
||||||
|
;; The goal of this test is to make sure redundant Observe
|
||||||
|
;; assertions aren't wrongly repeatedly entered into the index.
|
||||||
|
;; The Rust implementation suffered from this problem for a while.
|
||||||
|
(spawn
|
||||||
|
#:daemon? #t
|
||||||
|
(at ds (during $x
|
||||||
|
(log-info "Saw: ~v" x)
|
||||||
|
(assert x))))))
|
Loading…
Reference in New Issue