Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-23 06:16:40 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding make-rtd test.

Browse source
This commit is contained in:
Alex Shinn 2012-02-12 13:40:16 +09:00
parent 5633b1dcf9
commit 51df221034
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/record-tests.scm
View file

@ -172,4 +172,9 @@
;; (test-assert (not (rtd-field-mutable? foo 'x))) ;; (test-assert (not (rtd-field-mutable? foo 'x)))
(define point (make-rtd "point" #(x y)))
(define make-point (rtd-constructor point #(x y)))
(define point-x (rtd-accessor point 'x))
(test 3 (point-x (make-point 3 2)))
(test-end) (test-end)