2022-01-16 08:48:31 +00:00
|
|
|
#lang syndicate
|
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
2024-03-10 11:43:06 +00:00
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2022-2024 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
2022-01-16 08:48:31 +00:00
|
|
|
|
|
|
|
(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))))))
|