15 lines
526 B
Racket
15 lines
526 B
Racket
#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))))))
|