From 0051380f2b736e79664dde210cacc9de96f05390 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sun, 1 Mar 2020 20:46:06 +0100
Subject: [PATCH] rs: Add a test for ht-str-triples->rs.

---
 rs-tests.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rs-tests.rkt b/rs-tests.rkt
index 73ceb78..f2a0362 100644
--- a/rs-tests.rkt
+++ b/rs-tests.rkt
@@ -17,3 +17,7 @@
     (check-equal? (union-products rs '(a b)) (set 'y 'z))
     (check-equal? (apply-rs rs s1) (set 'y 'z))
     (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)))))))