Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #404 - Added unit tests

Browse source
This commit is contained in:
Justin Ethier 2021-07-19 17:12:22 -04:00
parent 29033581ad
commit a0216a8545
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/unit-tests.scm
View file

@ -378,6 +378,13 @@
(x kar set-kar!)
(y kdr))
(define-record-type <point>
(point x y)
point?
(x get-x set-x!)
(y get-y set-y!)
(z get-z set-z!))
(assert:equal "Records predicate (t)" (pare? (kons 1 2)) #t)
(assert:equal "Records predicate (f)" (pare? (cons 1 2)) #f)
(assert:equal "Records kar" (kar (kons 1 2)) 1)
@ -389,6 +396,11 @@
3)
(assert:equal "Record type predicate (t)" (record? (kons 1 2)) #t)
(assert:equal "Record type predicate (f)" (record? (cons 1 2)) #f)
(assert:equal "Record type field not in constructor (f)" (get-z (point 1 2)) #f)
(let ((p (point 1 2)))
(set-z! p 99)
(assert:equal "Record type get field not in constructor" (get-z p) 99))
;; END records
;; Lazy evaluation