Move testing lisp to separate file
parent
7dfe4ee057
commit
ecae424344
@ -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…
Reference in new issue