Version 1.8.2: Test suite and more functions for foreign string encoding

[uffi.git] / tests / foreign-var.lisp

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index 3a19d75e29e155a978e38068076372ffe93483d4..fda7c10d86b62c8e76bdbebe9cf9692c78545789 100644 (file)
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -61,7 +61,7 @@
                      (fvar-struct-double))
   t)
 
-(deftest fvarst.6
+(deftest :fvarst.6
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
@@ -69,7 +69,7 @@
         (setf *fvar-addend* orig)))
   6)
 
-(deftest fvarst.7
+(deftest :fvarst.7
     (let ((orig *fvar-addend*))
       (incf *fvar-addend* 3)
       (prog1
@@ -77,7 +77,7 @@
         (setf *fvar-addend* orig)))
   48)
 
-(deftest fvarst.8
+(deftest :fvarst.8
     (let ((orig (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i)))
       (decf (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 10)
       (prog1