Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +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-26 19:05:24 -07:00
parent 61cc07f99e
commit a2a518fd02
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tests/base.scm
View file

@ -31,6 +31,21 @@
(test 2.0 (denominator (/ 6 4)))
)
(test-group
"records"
(define-record-type employee
(make-employee name title)
employee?
(name get-name)
(title get-title)
(test get-test set-test!)) ;; Uninitialized by constructor
(define e (make-employee "test-name" "job 1"))
(test #f (get-test e))
(set-test! e 'test-field)
(test 'test-field (get-test e))
)
(test-group
"I/O"
(define p (open-input-string "one\ntwo\n"))