diff options
| author | nea <nea@nea.moe> | 2023-08-21 18:15:40 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-21 18:15:40 +0200 |
| commit | 62244f488cf570471ecb9de919ecbf961508757c (patch) | |
| tree | 187e9d651ac57533d29d96fcc77c61befaf415c7 /test | |
| parent | 4bbfede4060d38083aafd8a6c7ab2847e0e55ebf (diff) | |
| download | nealisp-62244f488cf570471ecb9de919ecbf961508757c.tar.gz nealisp-62244f488cf570471ecb9de919ecbf961508757c.tar.bz2 nealisp-62244f488cf570471ecb9de919ecbf961508757c.zip | |
Better binding for more types
Diffstat (limited to 'test')
| -rw-r--r-- | test/res/scratch.lisp | 2 | ||||
| -rw-r--r-- | test/src/TestLisp.kt | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/test/res/scratch.lisp b/test/res/scratch.lisp index 667f903..00517a8 100644 --- a/test/res/scratch.lisp +++ b/test/res/scratch.lisp @@ -25,4 +25,4 @@ (debuglog "============") (debuglog "Running tests") -(debuglog "This should be 1.0" (funny-method 1.1 "test" false))
\ No newline at end of file +(debuglog "This should be 1.0" (funny-method 1.1 "test" false (test 1 2 3 4 /)))
\ No newline at end of file diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt index 205bea2..5f56d68 100644 --- a/test/src/TestLisp.kt +++ b/test/src/TestLisp.kt @@ -1,7 +1,4 @@ -import moe.nea.lisp.LispData -import moe.nea.lisp.LispExecutionContext -import moe.nea.lisp.LispParser -import moe.nea.lisp.TestResultFormatter +import moe.nea.lisp.* import moe.nea.lisp.bind.AutoBinder import moe.nea.lisp.bind.LispBinding import java.io.File @@ -12,9 +9,10 @@ object T object TestBindings { @LispBinding("funny-method") - fun funnyMethod(arg: Int, test: String, boolean: Boolean): LispData { + fun funnyMethod(arg: Int, test: String, boolean: Boolean, ast: LispAst): LispData { if (boolean) println("From java: $test") + println(ast.toSource()) return LispData.LispNumber(arg.toDouble()) } |