added test for u8vector items

svn: r5628
2007-02-17 15:23:49 +00:00 · 2007-02-17 15:23:49 +00:00 · 5387c758f2
commit 5387c758f2
parent 79ac9d31b5
1 changed files with 7 additions and 0 deletions
--- 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)