From 83a87acfc5ae8c3daa7e28c8cf1a454118599438 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 23 Feb 2020 21:29:00 +0100 Subject: [PATCH] utils: Generalise unstringify-pairs. --- utils-tests.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/utils-tests.rkt b/utils-tests.rkt index 67e4876..eec26d4 100644 --- a/utils-tests.rkt +++ b/utils-tests.rkt @@ -50,6 +50,8 @@ '(("a" "(and a b)") ("b" "(or b (not a))"))) (check-equal? (unstringify-pairs '(("a" . "1") ("b" . "(and a (not b))"))) '((a . 1) (b . (and a (not b))))) + (check-equal? (unstringify-pairs '(("a" . 1) ("b" . "(and a (not b))"))) + '((a . 1) (b . (and a (not b))))) (let ([m1 (read-org-variable-mapping "((\"a\" \"(and a b)\") (\"b\" \"(or b (not a))\"))")] [m2 (read-org-variable-mapping "((\"a\" . \"(and a b)\") (\"b\" . \"(or b (not a))\"))")] [m3 (unorg "((\"a\" . \"(and a b)\") (\"b\" . \"(or b (not a))\"))")])