Simon Brooke
46f75a0c4f
Masses of stuff has had to be moved around because of cyclic dependency hell, and some of that may need to be revisited.
17 lines
608 B
Clojure
17 lines
608 B
Clojure
(ns beowulf.interop-test
|
|
(:require [clojure.test :refer [deftest is testing]]
|
|
[beowulf.bootstrap :refer [EVAL INTEROP]]
|
|
[beowulf.read :refer [gsp]]))
|
|
|
|
|
|
(deftest interop-test
|
|
(testing "INTEROP called from Clojure"
|
|
(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) '(QUOTE (A B C)))") (gsp "((A . P)(B . Q)(C . R))"))]
|
|
;; (is (= actual expected))))
|
|
)
|