Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Updating *-copy! tests to not assume minimum end.

Browse source
This commit is contained in:
Alex Shinn 2012-11-23 18:11:14 +09:00
parent 0c7a01d13a
commit 4a6af64dc4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/r7rs-tests.scm
View file

@ -1092,7 +1092,7 @@
(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 "-----") 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))
@ -1165,7 +1165,7 @@
(test #(c d e 4 5) (test #(c d e 4 5)
(let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 0 #(a b c d e) 2) vec)) (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 0 #(a b c d e) 2) vec))
(test #(1 2 a b c) (test #(1 2 a b c)
(let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e)) vec)) (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e) 0 3) vec))
(test #(1 2 c 4 5) (test #(1 2 c 4 5)
(let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e) 2 3) vec)) (let ((vec (vector 1 2 3 4 5))) (vector-copy! vec 2 #(a b c d e) 2 3) vec))
@ -1212,7 +1212,7 @@
bv)) bv))
(test #u8(1 2 6 7 8) (test #u8(1 2 6 7 8)
(let ((bv (bytevector 1 2 3 4 5))) (let ((bv (bytevector 1 2 3 4 5)))
(bytevector-copy! bv 2 #u8(6 7 8 9 10)) (bytevector-copy! bv 2 #u8(6 7 8 9 10) 0 3)
bv)) bv))
(test #u8(1 2 8 4 5) (test #u8(1 2 8 4 5)
(let ((bv (bytevector 1 2 3 4 5))) (let ((bv (bytevector 1 2 3 4 5)))