X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fpointers.lisp;h=716844893801679bbd6b03d59db6dda65209b99e;hb=e6b918e15bcf8aa2ed66331636ea7e1288095a99;hp=495fdcd392f9b480f06c3fc4fb623e26b8243ddf;hpb=3e1ab6ebfcf56e76edffaff284aca937e8152408;p=uffi.git

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 495fdcd..7168448 100644
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -52,5 +52,18 @@
       (uffi:convert-from-foreign-string fs))
   "a")
 
+;; This produces an array which needs fli:foreign-aref to access
+;; rather than fli:dereference
+
+#-lispworks
+(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")
+