19 lines
511 B
Racket
19 lines
511 B
Racket
#lang s-exp "../../lang/wescheme.rkt"
|
|
(require "../../jsworld/define-effect.rkt")
|
|
|
|
(define-effect effect:beep ()
|
|
#:impl (lambda (w)
|
|
(printf "Beep!")))
|
|
|
|
"This is an effect: " (make-effect:beep)
|
|
|
|
(check-expect (effect? (make-effect:beep)) #t)
|
|
(check-expect (effect-type? (make-effect:beep)) #f)
|
|
(check-expect (effect-type? struct:effect:beep) #t)
|
|
(check-expect (effect-type? (make-effect:beep)) #f)
|
|
|
|
|
|
|
|
(big-bang 0
|
|
(initial-effect (make-effect:beep))
|
|
(stop-when (lambda (w) true))) |