r10584: * tests/objects.lisp: Rename from pointers.lisp.

[uffi.git] / tests / pointers.lisp

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 64391b9eab0951095cc2e06e9ec24fd757c21e71..cebb359fd1fa677583858f528c72d5a1363c8c41 100644 (file)
--- 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