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 "b" (string-copy "abc" 1 2))
(test "bc" (string-copy "abc" 1 3)) (test "bc" (string-copy "abc" 1 3))
;; (test "-----" (test "-----"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\-) str)) (let ((str (make-string 5 #\x))) (string-fill! str #\-) str))
;; (test "xx---" (test "xx---"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\- 2) str)) (let ((str (make-string 5 #\x))) (string-fill! str #\- 2) str))
;; (test "xx-xx" (test "xx-xx"
;; (let ((str (make-string 5 #\x))) (string-fill! str #\- 2 3) str)) (let ((str (make-string 5 #\x))) (string-fill! str #\- 2 3) str))
;; (test "a12de" (test "a12de"
;; (let ((str (string-copy "abcde"))) (string-copy! str 1 "12345" 0 2) str)) (let ((str (string-copy "abcde"))) (string-copy! str 1 "12345" 0 2) str))
;; (test "-----" (test "-----"
;; (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----") str)) (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----") str))
;; (test "---xx" (test "---xx"
;; (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----" 2) str)) (let ((str (make-string 5 #\x))) (string-copy! str 0 "-----" 2) str))
;; (test "xx---" (test "xx---"
;; (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 0 3) str)) (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 0 3) str))
;; (test "xx-xx" (test "xx-xx"
;; (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 2 3) str)) (let ((str (make-string 5 #\x))) (string-copy! str 2 "-----" 2 3) str))
;; same source and dest ;; same source and dest
;; (test "aabde" (test "aabde"
;; (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 2) str)) (let ((str (string-copy "abcde"))) (string-copy! str 1 str 0 2) str))
;; (test "abcab" (test "abcab"
;; (let ((str (string-copy "abcde"))) (string-copy! str 3 str 0 2) str)) (let ((str (string-copy "abcde"))) (string-copy! str 3 str 0 2) str))
(test-end) (test-end)