X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fpointers.lisp;h=cebb359fd1fa677583858f528c72d5a1363c8c41;hb=09464c82191ef241c749756bbad5ffaadd8f6e5f;hp=64391b9eab0951095cc2e06e9ec24fd757c21e71;hpb=0824453227a26da41a3929c9117b66714980414b;p=uffi.git

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 64391b9..cebb359 100644
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -39,8 +39,9 @@
 (deftest :chptr.4
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
-	(numberp
-	 (deref-pointer fs :byte))))
+	(integerp
+	 (ensure-char-integer
+	  (deref-pointer fs :unsigned-char)))))
   t)
 	
 (deftest :chptr.5