13 lines
279 B
Racket
13 lines
279 B
Racket
|
#lang typed/racket
|
||
|
|
|
||
|
|
;;; Tests for dds/rs.
|
||
|
|
|
||
|
|
(require typed/rackunit "rs.rkt")
|
||
|
|
|
||
|
|
(test-case "Basic definitions"
|
||
|
|
(let ([r (reaction (set 'a) (set 'b) (set 'c))]
|
||
|
|
[s1 (set 'a 'c)]
|
||
|
|
[s2 (set 'a 'b)])
|
||
|
|
(check-true (enabled? r s1))
|
||
|
|
(check-false (enabled? r s2))))
|