Move testing lisp to separate file

master
Drake 2 years ago
parent 7dfe4ee057
commit ecae424344

@ -1,4 +1,5 @@
import { VM, run, libBasic } from "cumlisp"
import { readFile } from "fs"
import test from "./index.js"
@ -16,19 +17,6 @@ test(vm)
(assertTrue "Failed assertion to true" (equals 1 0))
(assertTrue "Assertion with variables and strings" (equals (x) "deez"))
)`, vm))*/
console.log(await run(`%(
(set x "deez")
(set y "deez")
(set z "nuts")
(testWrapper
(testSet "assertTrue"
(assertTrue "assertTrue success" (equals 1 1))
(assertTrue "assertTrue fail" (equals 1 0))
(assertTrue "assertTrue success with strings" (equals (x) "deez")))
(testSet "assertEquals"
(assertEquals "assertEquals success" (x) (y))
(assertEquals "assertEquals failure" (x) (z)))
(testSet "Miscellaneous"
(assertTrue "libBasic comparison functions" (== (x) (y))))
)
)`, vm))
readFile("./test.lsp", 'utf8', async (err, data) => {
console.log(await run(data, vm))
})

@ -0,0 +1,16 @@
%(
(set x "deez")
(set y "deez")
(set z "nuts")
(testWrapper
(testSet "assertTrue"
(assertTrue "assertTrue success" (equals 1 1))
(assertTrue "assertTrue fail" (equals 1 0))
(assertTrue "assertTrue success with strings" (equals (x) "deez")))
(testSet "assertEquals"
(assertEquals "assertEquals success" (x) (y))
(assertEquals "assertEquals failure" (x) (z)))
(testSet "Miscellaneous"
(assertTrue "libBasic comparison functions" (== (x) (y))))
)
)
Loading…
Cancel
Save