Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding tests from issue #363

Browse source
This commit is contained in:
Alex Shinn 2016-06-19 13:14:00 +09:00
parent 18b41bcda0
commit 5a770c4909
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/srfi/99/test.sld
View file

@ -224,4 +224,20 @@
(set-container-mutable! container-instance #t) (set-container-mutable! container-instance #t)
(test #t (get-container-mutable container-instance))) (test #t (get-container-mutable container-instance)))
;; test child constructor sets parent field
(let ()
(define-record-type <parent>
#f
parent?
(field1 parent-field set-parent-field!))
(define-record-type (<child> <parent>)
(constructor field1 field2)
child?
(field2 child-field))
(let ((record (constructor 'a 'b)))
(test 'a (parent-field record))
(test 'b (child-field record))
(set-parent-field! record 'c)
(test 'c (parent-field record))))
(test-end)))) (test-end))))