17 lines
402 B
Racket
17 lines
402 B
Racket
|
#lang syndicate/test
|
||
|
|
||
|
;; currently FAILS
|
||
|
|
||
|
;; dubious behavior by little implementation;
|
||
|
;; create new facets from more nested facets
|
||
|
|
||
|
(spawn (on-start
|
||
|
(react (on-stop
|
||
|
(react (assert (outbound "inner"))))))
|
||
|
(stop-when (message "stop")
|
||
|
(react (assert (outbound "outer")))))
|
||
|
|
||
|
(spawn (on-start (send! "stop")))
|
||
|
|
||
|
(trace (assertion-added (outbound "inner")))
|