tests/test-u8.scm

   1 (define x (u8vector 2 3 4))
   2 (define y '#u8(6 7 8))
   3 (define z (make-u8vector 3 7))
   4 (display (+ (u8vector-ref x 2) 2))
   5 (display (u8vector-length x))
   6 (display "\n")
   7 (display (u8vector-ref y 2))
   8 (display (u8vector-length y))
   9 (display "\n")
  10 (u8vector-set! z 2 5)
  11 (display (u8vector-ref z 2))
  12 (display (u8vector-length z))
  13 (display "\n")
  14 (display (equal? '#u8(0 1 2) '#u8(0 1 2)))
  15 (display (equal? '#u8(0 1 2) '#u8(0 1 3)))
  16 (display (equal? '#u8(0 1 2) (u8vector 0 1 2)))
  17 (display (equal? (u8vector 0 1 2) (u8vector 0 1 2)))