conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add regression test against #312

This commit is contained in:
Sunrin SHIMURA (keen) 2015-12-28 12:03:29 +09:00
parent 5e6ffec5aa
commit efe50f934b
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
t/issue/312.scm Normal file
View File

@ -0,0 +1,19 @@
(import (scheme base)
(picrin test))
(test-begin)
(test #f (equal? (make-list 10 1) (make-list 11 1)))
(let ((l1 (list 1 1))
(l2 (list 1 1))
(l3 (list 1 1 1)))
(set-cdr! l1 l1)
(set-cdr! l2 l2)
(set-cdr! (cdr l3) l3)
(test #f (equal? l1 (make-list 10 1)))
(test #t (equal? l1 l1))
(test #t (equal? l1 l2))
(test #t (equal? l1 l3)))
(test-end)