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

Now up to seventy assertions...

Browse source
This commit is contained in:
Simon Brooke 2019-08-17 10:07:58 +01:00
parent 10b2ad5322
commit a0aa434933
1 changed files with 37 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
test/beowulf/bootstrap_test.clj
View file

@ -49,9 +49,7 @@
(is (= actual expected) "A dotted pair is explicitly not an atom.")) (is (= actual expected) "A dotted pair is explicitly not an atom."))
(let [expected NIL (let [expected NIL
actual (primitive-atom? (gsp "(A B C D)"))] actual (primitive-atom? (gsp "(A B C D)"))]
(is (= actual expected) "A list is explicitly not an atom")) (is (= actual expected) "A list is explicitly not an atom"))))
))
(deftest access-function-tests (deftest access-function-tests
(testing "car" (testing "car"
@ -111,8 +109,7 @@
(testing "caaaar" (testing "caaaar"
(let [expected "1" (let [expected "1"
actual (print-str (caaaar s))] actual (print-str (caaaar s))]
(is (= actual expected)))) (is (= actual expected))))))
))
(deftest equality-tests (deftest equality-tests
@ -163,6 +160,12 @@
(deftest append-tests (deftest append-tests
(testing "append" (testing "append"
(let [expected "(A B C . D)"
actual (print-str
(append
(gsp "(A B)")
(gsp "(C . D)")))]
(is (= actual expected)))
(let [expected "(A B C D E)" (let [expected "(A B C D E)"
actual (print-str actual (print-str
(append (append
@ -185,4 +188,33 @@
actual (member (gsp "BERTRAM") (gsp "(ALBERT BELINDA CHARLIE DORIS ELFREDA FRED)"))] actual (member (gsp "BERTRAM") (gsp "(ALBERT BELINDA CHARLIE DORIS ELFREDA FRED)"))]
(= actual expected)))) (= actual expected))))
(deftest pairlis-tests
(testing "pairlis"
(let [expected "((A . U) (B . V) (C . W) (D . X) (E . Y))"
actual (print-str
(pairlis
(gsp "(A B C)")
(gsp "(U V W)")
(gsp "((D . X)(E . Y))")))]
(is (= actual expected)))))
(deftest assoc-tests
(testing "assoc"
(let [expected "(B CAR X)"
actual (print-str
(primitive-assoc
'B
(gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))]
(is (= actual expected)))
(let [expected "(C QUOTE M)"
actual (print-str
(primitive-assoc
'C
(gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))]
(is (= actual expected)))
(let [expected "NIL"
actual (print-str
(primitive-assoc
'D
(gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))]
(is (= actual expected)))))