unit testing very begining
This commit is contained in:
@@ -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")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user