teitoku/rust-mal
1
0
Fork 0
mirror of https://github.com/teo3300/rust-mal.git synced 2026-01-12 01:05:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Moving a whole bunch of stuff in lisp

Browse Source 
Signed-off-by: teo3300 <matteo.rogora@live.it>
This commit is contained in:
teo3300
2024-01-17 20:58:25 +09:00
parent 8d305cfd68
commit 5648ff7709
7 changed files with 54 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
tests/assert.mal
View File

@ -1,5 +1,6 @@
(assert true)
(assert (ok? 1))
(assert-eq nil (ok? (1)))
(assert-eq true (ok? 1))
(ok? (assert true))
(not (ok? (assert nil)))

28
tests/logic.mal
View File

@ -9,23 +9,19 @@
(assert (not (not true)))
; or
(assert (not (or false)))
(assert (or 1))
(assert (or 1 nil false))
(assert (or 1 1 1))
(assert (or nil 1 false))
(assert (not (or nil false)))
(assert (not (or false nil)))
(assert (not (or nil nil)))
(assert (or 1 nil))
(assert (or nil 1))
(assert (or 1 1))
; and
(assert (and 1))
(assert (not (and nil)))
(assert (and 1 1 1))
(assert (not (and 1 nil false)))
(assert (not (and nil false)))
(assert (not (and nil nil)))
(assert (not (and 1 nil)))
(assert (not (and 1 nil)))
(assert (and 1 1))
; xor
(assert (not (xor nil false nil)))
(assert (xor nil 1 nil false nil))
(assert (not (xor nil 1 false 1)))
(assert (not (xor 1 nil 1 1)))
(assert (not (xor nil nil)))
(assert (xor nil 1))
(assert (xor 1 nil))
(assert (not (xor 1 1)))