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

(not c) tests

This commit is contained in:
VaclavT 2021-05-10 19:09:30 +02:00
parent d049675e9b
commit 22406e1314
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stdlib/stdlib.lsp
View File

@ -1,5 +1,5 @@
; not a bool ; not a bool
(defun not (x) (if x 0 1)) (defun not (x) (if x nil 1))
(defun is-pos? (n) (> n 0)) (defun is-pos? (n) (> n 0))
(defun is-neg? (n) (< n 0)) (defun is-neg? (n) (< n 0))

3
tests/test.lsp
View File

@ -24,6 +24,9 @@
(ut::define-test "result of (and (> 1 1) (> 1 2))" '(ut::assert-false (and (> 1 1) (> 1 2)))) (ut::define-test "result of (and (> 1 1) (> 1 2))" '(ut::assert-false (and (> 1 1) (> 1 2))))
(ut::define-test "result of (or (> 1 1) (> 2 1))" '(ut::assert-true (or (> 1 1) (> 2 1)))) (ut::define-test "result of (or (> 1 1) (> 2 1))" '(ut::assert-true (or (> 1 1) (> 2 1))))
(ut::define-test "result of (not 1)" '(ut::assert-false (not 1)))
(ut::define-test "result of (not nil)" '(ut::assert-true (not nil)))
(ut::define-test "result of (member '(1 2 3) 1" '(ut::assert-true (member '(1 2 3) 1))) (ut::define-test "result of (member '(1 2 3) 1" '(ut::assert-true (member '(1 2 3) 1)))
(ut::define-test "result of (member '(1 2 3) 3" '(ut::assert-true (member '(1 2 3) 3))) (ut::define-test "result of (member '(1 2 3) 3" '(ut::assert-true (member '(1 2 3) 3)))