simon/beowulf
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Read/print tests all working nicely! Now for eval...

Browse source
This commit is contained in:
Simon Brooke 2019-08-15 16:52:27 +01:00
parent d01bb68c0f
commit 325e991f1f
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/beowulf/sexpr_test.clj
View file

@ -85,5 +85,10 @@
(is (= actual expected))) (is (= actual expected)))
(let [expected "(A B (C . D) E)" (let [expected "(A B (C . D) E)"
actual (prin (generate (simplify (parse expected))))] 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)))))