dds/rs-tests.rkt
Sergiu Ivanov bb247d9eb8 rs: Start.
2020-03-01 19:05:28 +01:00

12 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))))