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

SYSOUT now sort-of working; SYSIN present but not tested

Browse source 
Masses of stuff has had to be moved around because of cyclic dependency hell, and some of that may need to be revisited.
This commit is contained in:
Simon Brooke 2023-03-26 20:23:48 +01:00
parent eef64ab08c
commit 46f75a0c4f
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
28 changed files with 215 additions and 111 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test/beowulf/bootstrap_test.clj
View file

@ -1,9 +1,10 @@
(ns beowulf.bootstrap-test
(:require [clojure.test :refer [deftest testing is]]
[beowulf.cons-cell :refer [make-cons-cell NIL T F]]
[beowulf.bootstrap :refer [APPEND ASSOC ATOM ATOM? CAR CAAAAR CADR
CADDR CADDDR CDR EQ EQUAL MEMBER
[beowulf.cons-cell :refer [CAR CDR make-cons-cell T F]]
[beowulf.bootstrap :refer [APPEND ASSOC ATOM ATOM? CAAAAR CADR
CADDR CADDDR EQ EQUAL MEMBER
PAIRLIS SUBLIS SUBST]]
[beowulf.oblist :refer [NIL]]
[beowulf.read :refer [gsp]]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4
test/beowulf/host_test.clj
View file

@ -1,8 +1,8 @@
(ns beowulf.host-test
(:require [clojure.test :refer [deftest is testing]]
[beowulf.bootstrap :refer [CDR]]
[beowulf.cons-cell :refer [F make-beowulf-list NIL T]]
[beowulf.cons-cell :refer [CDR F make-beowulf-list T]]
[beowulf.host :refer [DIFFERENCE NUMBERP PLUS2 RPLACA RPLACD TIMES2]]
[beowulf.oblist :refer [NIL]]
[beowulf.read :refer [gsp]]))
(deftest destructive-change-test

10
test/beowulf/interop_test.clj
View file

@ -1,6 +1,6 @@
(ns beowulf.interop-test
(:require [clojure.test :refer [deftest is testing]]
[beowulf.bootstrap :refer [EVAL INTEROP QUOTE]]
[beowulf.bootstrap :refer [EVAL INTEROP]]
[beowulf.read :refer [gsp]]))
@ -9,8 +9,8 @@
(let [expected (symbol "123")
actual (INTEROP (gsp "(CLOJURE CORE STR)") (gsp "(1 2 3)"))]
(is (= actual expected))))
;; (testing "INTEROP called from Lisp"
;; (let [expected 'ABC
;; actual (EVAL (gsp "(INTEROP '(CLOJURE CORE STR) '(A B C))") (gsp "((A . A)(B . B)(C . C))"))]
;; (is (= actual expected))))
;; (testing "INTEROP called from Lisp"
;; (let [expected 'ABC
;; actual (EVAL (gsp "(INTEROP '(CLOJURE CORE STR) '(QUOTE (A B C)))") (gsp "((A . P)(B . Q)(C . R))"))]
;; (is (= actual expected))))
)

2
test/beowulf/mexpr_test.clj
View file

@ -2,7 +2,7 @@
"These tests are taken generally from the examples on page 10 of
Lisp 1.5 Programmers Manual"
(:require [clojure.test :refer [deftest is testing]]
[beowulf.bootstrap :refer [*options*]]
[beowulf.oblist :refer [*options*]]
[beowulf.read :refer [gsp]]
[beowulf.reader.generate :refer [generate]]
[beowulf.reader.parser :refer [parse]]

1
test/beowulf/sexpr_test.clj
View file

@ -1,6 +1,5 @@
(ns beowulf.sexpr-test
(:require [clojure.test :refer [deftest is testing]]
[beowulf.bootstrap :refer [*options*]]
[beowulf.cons-cell :refer []]
[beowulf.read :refer [gsp]]))