summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
17830fd)
* tests/test-actors.scm: Add <exploder>.
;; The exploder self-destructs, even though run-hive has clean-up
;; disabled, because it cleans up on self-destruct.
;; The exploder self-destructs, even though run-hive has clean-up
;; disabled, because it cleans up on self-destruct.
+(define-simple-actor <exploder>
+ (explode (lambda (exploder message)
+ (speak "POOF\n")
+ (self-destruct exploder)))
+ (*clean-up* (lambda _ (speak "Cleaning up post-explosion\n"))))
+
(with-fresh-speaker
(let ((hive (make-hive)))
(define exploder (hive-create-actor hive <exploder>))
(with-fresh-speaker
(let ((hive (make-hive)))
(define exploder (hive-create-actor hive <exploder>))