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