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 atom tests and makefile

Browse Source
This commit is contained in:
teo3300
2024-06-17 01:02:27 +09:00
parent 1f20079571
commit fb2aabbcef
2 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tests/atoms.mal
View File

@ -4,3 +4,16 @@
; deref
(assert-eq (deref (atom 1)) 1)
; @ macro
(assert-eq @(atom 1) 1)
(def! ATOM (atom 1))
; reset!
(reset! ATOM 2)
(assert-eq @ATOM 2)
; swap!
(swap! ATOM (fn* [x] (* x 2)))
(assert-eq @ATOM 4)