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

Dotted pairs reading/printing correctly

Browse source
This commit is contained in:
Simon Brooke 2019-08-15 16:46:34 +01:00
parent 0321401c2a
commit d01bb68c0f
2 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test/beowulf/sexpr_test.clj
View file

@ -1,6 +1,7 @@
(ns beowulf.sexpr-test
(:require [clojure.math.numeric-tower :refer [abs]]
[clojure.test :refer :all]
[beowulf.cons-cell :refer :all]
[beowulf.read :refer [parse simplify generate]]
[beowulf.print :refer :all]))
@ -74,3 +75,15 @@
actual (generate (simplify (parse "0.6E2")))]
(is (< (abs (- actual expected)) 0.0001))))
(deftest dotted-pair-tests
(testing "Reading dotted pairs"
(let [expected "(A . B)"
actual (prin (generate (simplify (parse expected))))]
(is (= actual expected)))
(let [expected "(A B C . D)"
actual (prin (generate (simplify (parse expected))))]
(is (= actual expected)))
(let [expected "(A B (C . D) E)"
actual (prin (generate (simplify (parse expected))))]
(is (= actual expected)))
))