r9418: rework cmucl/sbcl arrays in deref-array, allocate-foreign-object, and with...

[uffi.git] / tests / pointers.lisp

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 495fdcd392f9b480f06c3fc4fb623e26b8243ddf..886ea517816b30f03046b659940143b1d48f2b10 100644 (file)
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -52,5 +52,14 @@
       (uffi:convert-from-foreign-string fs))
   "a")
 
+(deftest chptr.6
+    (uffi:with-foreign-object (fs '(:array :unsigned-char 128))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
+           (uffi:ensure-char-storable #\a))
+      (setf (uffi:deref-array fs '(:array :unsigned-char) 1)
+           (uffi:ensure-char-storable (code-char 0)))
+      (uffi:convert-from-foreign-string fs))
+  "a")
+