tests/test-u8-copy.scm

   1 ;; test for the 2 cases of vector copy
   2 ;; TODO error case ?
   3 (define x '#u8(0 1 2 3 4 5))
   4 (define y (u8vector 10 11 12 13 14 15 16 17 18 19))
   5 (define z (u8vector 20 21 22 23 24 25 26 27 28 29))
   6
   7 (define (display-vector v)
   8   (let loop ((i 0))
   9     (if (< i (u8vector-length v))
  10         (begin (display (u8vector-ref v i))
  11                (display " ")
  12                (loop (+ i 1)))))
  13   (display "\n"))
  14
  15 ;; (display-vector x)
  16 ;; (display-vector y)
  17 ;; (display-vector z)
  18
  19 (u8vector-copy! x 1 y 3 4)
  20 (u8vector-copy! y 2 z 4 5)
  21 (u8vector-copy! z 0 z 2 2)
  22 (display-vector x)
  23 (display-vector y)
  24 (display-vector z)