summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/res/test.lisp9
-rw-r--r--test/src/TestLisp.kt3
2 files changed, 6 insertions, 6 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp
index edadffd..5f32bee 100644
--- a/test/res/test.lisp
+++ b/test/res/test.lisp
@@ -2,10 +2,6 @@
(defun myfun (var) (debuglog var))
(myfun :myfunworks)
((lambda (a) (debuglog a)) :atom)
-(debuglog a)
-(defun testsomething (c) (debuglog (if c "truthy value" "falsey value")))
-(testsomething true)
-(testsomething false)
(defun testlog (a ...) (seq
(debuglog "a" a)
(debuglog "..." ...)))
@@ -16,3 +12,8 @@
(debuglog "-" (- 1 3))
(debuglog "*" (* 10 10))
(debuglog "/" (/ 1 3 2))
+(debuglog "============")
+(defun testsomething (c) (debuglog (if! c (seq (debuglog "left evaluated") (return "truthy value")) "falsey value")))
+(testsomething true)
+(testsomething false)
+(noop)
diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt
index f986f1c..7a520fb 100644
--- a/test/src/TestLisp.kt
+++ b/test/src/TestLisp.kt
@@ -1,4 +1,3 @@
-import moe.nea.lisp.CoreBindings
import moe.nea.lisp.LispExecutionContext
import moe.nea.lisp.LispParser
import java.io.File
@@ -8,7 +7,7 @@ object T
fun main() {
val otherP = LispParser.parse(File(T::class.java.getResource("/test.lisp")!!.file))
val executionContext = LispExecutionContext()
+ executionContext.setupStandardBindings()
val bindings = executionContext.genBindings()
- CoreBindings.offerAllTo(bindings)
executionContext.executeProgram(bindings, otherP)
}