unit testing very begining

This commit is contained in:
2021-05-03 18:34:42 +02:00
parent 91fce00df3
commit 95dfbadd88
2 changed files with 42 additions and 0 deletions

View File

@@ -1,4 +1,10 @@
; it is expected to be called from parent directory ie: ml -f tests/test.lisp
(include "/usr/local/var/mlisp/terminal.lsp")
;; unit tests could be in this way
;; (include "/usr/local/var/mlisp/ut.lsp")
;; (ut::define-test "result of (and (> 2 1) (> 2 1))" '(ut::assert-true (and (> 2 1) (> 2 1))))
;; (ut::run-tests)
(print "Test starts")