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

There are regressions, tests are failing, but EVAL is beginning to work

Browse source
This commit is contained in:
Simon Brooke 2023-03-27 11:57:08 +01:00
parent 269d31df13
commit fec6a6a73a
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
8 changed files with 143 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/beowulf/host_test.clj
View file

@ -1,7 +1,7 @@
(ns beowulf.host-test
(:require [clojure.test :refer [deftest is testing]]
[beowulf.cons-cell :refer [CDR F make-beowulf-list T]]
[beowulf.host :refer [DIFFERENCE NUMBERP PLUS2 RPLACA RPLACD TIMES2]]
[beowulf.host :refer [DIFFERENCE NUMBERP PLUS RPLACA RPLACD TIMES]]
[beowulf.oblist :refer [NIL]]
[beowulf.read :refer [gsp]]))
@ -51,18 +51,18 @@
(deftest arithmetic-test
;; These are just sanity-test tests; they're by no means exhaustive.
(testing "PLUS2"
(testing "PLUS"
(let [expected 3
actual (PLUS2 1 2)]
actual (PLUS 1 2)]
(is (= actual expected))
(is (integer? actual)))
(let [expected 3.5
actual (PLUS2 1.25 9/4)]
actual (PLUS 1.25 9/4)]
(is (= actual expected))
(is (float? actual))))
(testing "TIMES2"
(testing "TIMES"
(let [expected 6
actual (TIMES2 2 3)]
actual (TIMES 2 3)]
(is (= actual expected))))
(testing DIFFERENCE
(let [expected -1