vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

better boolean handling..

Browse Source 
still T symbol should be implemented
This commit is contained in:
VaclavT
2021-05-05 21:43:08 +02:00
parent ea76cdf0be
commit 783aa6976b
3 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test.lsp
View File

@@ -1,5 +1,3 @@
; it is expected to be called from parent directory ie: ml -f tests/test.lisp
(include "/usr/local/var/mlisp/ut.lsp")
;; prepare some code to be used in tests
@@ -55,7 +53,7 @@
(ut::define-test "result of (string-split \"split me by space\" \"\\s+\")" '(ut::assert-equal '("split" "me" "by" "space") (string-split "split me by space" "\\s+")))
(ut::define-test "result of (string-upcase \"abcABCD\")" '(ut::assert-equal "ABCABCD" (string-upcase "abcABCD")))
(ut::define-test "result of (string-downcase \"abcABCD\")" '(ut::assert-equal "!abcabcd" (string-downcase "abcABCD")))
(ut::define-test "result of (string-downcase \"abcABCD\")" '(ut::assert-equal "abcabcd" (string-downcase "abcABCD")))
(ut::define-test "result of (write-file \"/tmp/file\" \"write-file test\")" '(ut::assert-equal 1 (write-file "/tmp/file" "write-file test\n")))
(ut::define-test "result of (is-file? \"/tmp/file\")" '(ut::assert-true (is-file? "/tmp/file")))
@@ -75,6 +73,8 @@
(ut::define-test "result of (get-env \"HOME\")" '(ut::assert-equal "/Users/vaclavt" (get-env "HOME")))
(ut::define-test "result of (!= nil nil)" '(ut::assert-false (!= nil nil)))
;(ut::define-test "result of " '(ut::assert-true )
(ut::run-tests)