scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

rs: Add a test for ht-str-triples->rs.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-01 20:46:06 +01:00
parent afc043d22d
commit 0051380f2b
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
rs-tests.rkt
View file

@ -17,3 +17,7 @@
(check-equal? (union-products rs '(a b)) (set 'y 'z)) (check-equal? (union-products rs '(a b)) (set 'y 'z))
(check-equal? (apply-rs rs s1) (set 'y 'z)) (check-equal? (apply-rs rs s1) (set 'y 'z))
(check-equal? (apply-rs rs s2) (set 'y)))) (check-equal? (apply-rs rs s2) (set 'y))))
(test-case "Org-mode interaction"
(check-equal? (ht-str-triples->rs #hash((a . ("x t" "y" "z"))))
(make-immutable-hash (list (cons 'a (reaction (set 'x 't) (set 'y) (set 'z)))))))