From 22406e1314978f3a34f99668c921a8bbc3a91375 Mon Sep 17 00:00:00 2001 From: VaclavT Date: Mon, 10 May 2021 19:09:30 +0200 Subject: [PATCH] (not c) tests --- stdlib/stdlib.lsp | 2 +- tests/test.lsp | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/stdlib/stdlib.lsp b/stdlib/stdlib.lsp index 34b9f6e..6fd241e 100644 --- a/stdlib/stdlib.lsp +++ b/stdlib/stdlib.lsp @@ -1,5 +1,5 @@ ; 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-neg? (n) (< n 0)) diff --git a/tests/test.lsp b/tests/test.lsp index 5714065..394a881 100644 --- a/tests/test.lsp +++ b/tests/test.lsp @@ -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 (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) 3" '(ut::assert-true (member '(1 2 3) 3)))