From 5387c758f2312d9a439865c9f28e418628808e74 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 17 Feb 2007 15:23:49 +0000 Subject: [PATCH] added test for u8vector items svn: r5628 --- collects/tests/mzscheme/foreign-test.ss | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/collects/tests/mzscheme/foreign-test.ss b/collects/tests/mzscheme/foreign-test.ss index 3b47bbff6f..d95b39cc6e 100644 --- a/collects/tests/mzscheme/foreign-test.ss +++ b/collects/tests/mzscheme/foreign-test.ss @@ -127,6 +127,13 @@ (t 52 'grab7th (_fun _pointer -> _int ) (ptr-add #"012345678" -3)) ) +;; test setting vector elements +(let* ([x #b01010101] + [l 20] + [v (make-u8vector l x)]) + (do ([i 0 (add1 i)]) [(= i l)] + (test x u8vector-ref v i))) + ;; Test pointer arithmetic and memmove-like operations (let ([p (malloc 10 _int)]) (memset p 0 10 _int)