diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/res/test.lisp | 11 | ||||
| -rw-r--r-- | test/src/TestLisp.kt | 7 |
2 files changed, 15 insertions, 3 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp index c4406b0..f3b870c 100644 --- a/test/res/test.lisp +++ b/test/res/test.lisp @@ -20,4 +20,13 @@ (debuglog "============") (debuglog "This should fail" sc) (import :secondary) -(debuglog "This should work" sc)
\ No newline at end of file +(debuglog "This should work" sc) + +(debuglog "============") +(debuglog "Running tests") +(import :ntest) +(ntest.test "Funny test" (seq + (debuglog "Funny test running") + (debuglog ((ntest.fail "Test failed"))))) + + diff --git a/test/src/TestLisp.kt b/test/src/TestLisp.kt index 5563042..fa90468 100644 --- a/test/src/TestLisp.kt +++ b/test/src/TestLisp.kt @@ -8,7 +8,10 @@ fun main() { val otherP = LispParser.parse(File(T::class.java.getResource("/test.lisp")!!.file)) val executionContext = LispExecutionContext() executionContext.setupStandardBindings() - executionContext.registerModule("secondary", LispParser.parse(File(T::class.java.getResource("/secondary.lisp")!!.file))) + executionContext.registerModule( + "secondary", + LispParser.parse(File(T::class.java.getResource("/secondary.lisp")!!.file)) + ) val bindings = executionContext.genBindings() - executionContext.executeProgram(bindings, otherP) + println("The results are in: ${executionContext.runTests(otherP, bindings)}") } |