From b530d6360308ac1f68cf2508fa5bd4a085a8bec0 Mon Sep 17 00:00:00 2001
From: nea <nea@nea.moe>
Date: Wed, 9 Aug 2023 16:18:48 +0200
Subject: Initial commit

---
 test/res/test.lisp   | 11 +++++++++++
 test/src/TestLisp.kt | 14 ++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 test/res/test.lisp
 create mode 100644 test/src/TestLisp.kt

(limited to 'test')

diff --git a/test/res/test.lisp b/test/res/test.lisp
new file mode 100644
index 0000000..f3d21d9
--- /dev/null
+++ b/test/res/test.lisp
@@ -0,0 +1,11 @@
+(debuglog "Hello, World, here is an atom:" :iamanatom)
+(defun myfun (var) (debuglog var)) 
+(myfun :myfunworks)
+((lambda (a) (debuglog a)) :atom)
+(debuglog a)
+(def helloworld (pure "hello world"))
+(debuglog helloworld (helloworld))
+(defun + () (seq
+    (debuglog "also multiplication")
+    (debuglog "addition")))
+(debuglog +)
diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt
new file mode 100644
index 0000000..f986f1c
--- /dev/null
+++ b/test/src/TestLisp.kt
@@ -0,0 +1,14 @@
+import moe.nea.lisp.CoreBindings
+import moe.nea.lisp.LispExecutionContext
+import moe.nea.lisp.LispParser
+import java.io.File
+
+object T
+
+fun main() {
+    val otherP = LispParser.parse(File(T::class.java.getResource("/test.lisp")!!.file))
+    val executionContext = LispExecutionContext()
+    val bindings = executionContext.genBindings()
+    CoreBindings.offerAllTo(bindings)
+    executionContext.executeProgram(bindings, otherP)
+}
-- 
cgit