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

unlock string-fill! tests

This commit is contained in:
Yuichi Nishiwaki 2014-06-28 21:54:19 +09:00
parent 2d59406403
commit 2615ce11bd
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
t/r7rs-tests.scm
View File

@ -1292,29 +1292,29 @@
(test "b" (string-copy "abc" 1 2))
(test "bc" (string-copy "abc" 1 3))
;; (test "-----"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\-) str))
;; (test "xx---"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\- 2) str))
;; (test "xx-xx"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\- 2 3) str))
(test "-----"
(let ((str (make-string 5 #\x))) (string-fill! str #\-) str))
(test "xx---"
(let ((str (make-string 5 #\x))) (string-fill! str #\- 2) str))
(test "xx-xx"
(let ((str (make-string 5 #\x))) (string-fill! str #\- 2 3) str))
;; (test "a12de"
;; (let ((str (string-copy "abcde"))) (string-copy! str 1 "12345" 0 2) str))
;; (test "-----"
;; (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----") str))
;; (test "---xx"
;; (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----" 2) str))
;; (test "xx---"
;; (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 0 3) str))
;; (test "xx-xx"
;; (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 2 3) str))
(test "a12de"
(let ((str (string-copy "abcde"))) (string-copy! str 1 "12345" 0 2) str))
(test "-----"
(let ((str (make-string 5 #\x))) (string-copy! str 0 "-----") str))
(test "---xx"
(let ((str (make-string 5 #\x))) (string-copy! str 0 "-----" 2) str))
(test "xx---"
(let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 0 3) str))
(test "xx-xx"
(let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 2 3) str))
;; same source and dest
;; (test "aabde"
;; (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 2) str))
;; (test "abcab"
;; (let ((str (string-copy "abcde"))) (string-copy! str 3 str 0 2) str))
(test "aabde"
(let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 2) str))
(test "abcab"
(let ((str (string-copy "abcde"))) (string-copy! str 3 str 0 2) str))
(test-end)