From 325e991f1fe26389360d94ec2526ef2aee21ea58 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Thu, 15 Aug 2019 16:52:27 +0100 Subject: [PATCH] Read/print tests all working nicely! Now for eval... --- test/beowulf/sexpr_test.clj | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/test/beowulf/sexpr_test.clj b/test/beowulf/sexpr_test.clj index eb1df91..77463da 100644 --- a/test/beowulf/sexpr_test.clj +++ b/test/beowulf/sexpr_test.clj @@ -85,5 +85,10 @@ (is (= actual expected))) (let [expected "(A B (C . D) E)" actual (prin (generate (simplify (parse expected))))] - (is (= actual expected))) -)) + (is (= actual expected))))) + +(deftest list-tests + (testing "Reading arbitrarily structured lists" + (let [expected "(DEFUN FACT (X) (COND ((ZEROP X) 1) (T (TIMES X (FACT (SUB1 X))))))" + actual (prin (generate (simplify (parse expected))))] + (is (= actual expected)))))