picrin/t/issue/string-copy.scm

9 lines
129 B
Scheme
Raw Normal View History

2017-03-23 09:33:41 -04:00
(import (scheme base)
(picrin test))
(test-begin)
(test "456" (string-copy (string-copy "1234567" 3) 0 3))
(test-end)