X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftime.lisp;fp=tests%2Ftime.lisp;h=78accd28bf47f3a4f56b3652a97420d4b47e1c14;hb=0824453227a26da41a3929c9117b66714980414b;hp=01c2090cafa46b3a719a8074c013a1b86ce29d52;hpb=7004c2691d5695471c7bce9d62b82a1914cf05a2;p=uffi.git

diff --git a/tests/time.lisp b/tests/time.lisp
index 01c2090..78accd2 100644
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -32,29 +32,26 @@
 
 (uffi:def-function ("time" c-time) 
     ((time (* time-t)))
-  :module "c"
   :returning time-t)
 
 (uffi:def-function "gmtime"
     ((time (* time-t)))
-  :module "c"
   :returning (* tm))
 
 (uffi:def-function "asctime"
     ((time (* tm)))
-  :module "c"
   :returning :cstring)
 
 (uffi:def-type time-t :unsigned-long)
 (uffi:def-type tm-pointer (* tm))
 
-(deftest time.1
+(deftest :time.1
    (uffi:with-foreign-object (time 'time-t)
      (setf (uffi:deref-pointer time :unsigned-long) 7381)
      (uffi:deref-pointer time :unsigned-long))
   7381)
 
-(deftest time.2
+(deftest :time.2
   (uffi:with-foreign-object (time 'time-t)
     (setf (uffi:deref-pointer time :unsigned-long) 7381)
     (let ((tm-ptr (the tm-pointer (gmtime time))))
@@ -79,7 +76,6 @@
 (uffi:def-function ("gettimeofday" c-gettimeofday) 
     ((tv (* timeval))
      (tz (* timezone)))
-  :module "c"
   :returning :int)
 		    
 (defun get-utime ()
@@ -90,7 +86,7 @@
 	  (uffi:get-slot-value tv 'timeval 'usecs))
        res))))
 
-(deftest timeofday.1
+(deftest :timeofday.1
     (multiple-value-bind (t1 res1) (get-utime)
       (multiple-value-bind (t2 res2) (get-utime)
 	(and (or (= t2 t1) (> t2 t1))
@@ -109,6 +105,6 @@
       (setf (uffi:deref-pointer time :unsigned-long) secs)
       (asctime (gmtime time))))))
 
-(deftest time.3
+(deftest :time.3
     (posix-time-to-asctime 0)
   "Thu Jan  1 00:00:00 1970")