X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fpointers.lisp;h=cebb359fd1fa677583858f528c72d5a1363c8c41;hb=09464c82191ef241c749756bbad5ffaadd8f6e5f;hp=716844893801679bbd6b03d59db6dda65209b99e;hpb=069f5e289f67cbe0507724db002497d4472f926f;p=uffi.git

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 7168448..cebb359 100644
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -15,35 +15,36 @@
 
 (in-package #:uffi-tests)
 
-(deftest chptr.1
+(deftest :chptr.1
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
 	(ensure-char-character
 	 (deref-pointer fs :char))))
   #\t)
 
-(deftest chptr.2
+(deftest :chptr.2
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
 	(ensure-char-character
 	 (deref-pointer fs :unsigned-char))))
   #\t)
 
-(deftest chptr.3
+(deftest :chptr.3
     (let ((native-string "test string"))
       (uffi:with-foreign-string (fs native-string)
 	(ensure-char-integer
 	 (deref-pointer fs :unsigned-char))))
   116)
 
-(deftest chptr.4
+(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
+(deftest :chptr.5
     (let ((fs (uffi:allocate-foreign-object :unsigned-char 128)))
       (setf (uffi:deref-array fs '(:array :unsigned-char) 0)
 	    (uffi:ensure-char-storable #\a))
@@ -56,7 +57,7 @@
 ;; rather than fli:dereference
 
 #-lispworks
-(deftest chptr.6
+(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))