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

Adding some info functions and tests

Browse Source
This commit is contained in:
teo3300
2024-04-16 09:35:35 +09:00
parent 5c9aa39750
commit 0ec8923abc
10 changed files with 108 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/atoms.mal Normal file
View File

@ -0,0 +1,6 @@
; atom?
(assert (atom? (atom 1)))
(assert (not (atom? 1)))
; deref
(assert-eq (deref (atom 1)) 1)

1
tests/forms.mal
View File

@ -31,7 +31,6 @@
(assert-eq (do) nil)
(println :ififififififififif)
; if
(assert (if true 1))
(assert (not (if false 1)))

4
tests/lists.mal
View File

@ -5,5 +5,5 @@
; empty?
(assert (empty? ()))
(assert (empty? (list)))
(assert (not (empty? ())))
(assert (not (empty? (list (1 2 3)))))
(assert (not (empty? '(1 2 3))))
(assert (not (empty? (list 1 2 3))))