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

#7: Progress! No longer breaking!

Browse source 
Bug is now probably in the implementation of CONC rather than in EVAL.
This commit is contained in:
Simon Brooke 2023-04-16 10:51:17 +01:00
parent d2ce61e6a7
commit d563f390c1
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
4 changed files with 111 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test/beowulf/lisp_test.clj
View file

@ -167,7 +167,6 @@
(T (GO START))))")]
(is (= actual expected)))))
(deftest put-get-tests
(let [symbol 'TESTSYMBOL
p1 'TESTPROPONE
@ -203,4 +202,14 @@
(is (not= val1 val2))
(is (= actual1 expected1) "The value set can be retrieved.")
(is (= actual2 expected2) "Values are independent.")
(is (= actual3 expected3) "Setting a second property does not obliterate the first.")))))
(is (= actual3 expected3) "Setting a second property does not obliterate the first.")))))
(deftest fsubr-tests
(testing "FSUBR/CONC"
(reps "(SETQ P (RANGE 1 4))")
(reps "(SETQ Q (RANGE 5 8))")
(reps "(SETQ R (RANGE 9 12))")
(reps "(CONC P Q R)")
(let [expected "(1 2 3 4 5 6 7 8 9 10 11 12)"
actual (reps "X")]
(is (= actual expected)))))