r10564: fix :modules in def-function
[uffi.git] / tests / strtol.lisp
index b9b73bd805410ff22f7eb92723ce17ee2b39b1bd..cb053cf1351b7f01a2069e9024d1f613c00b0f7b 100644 (file)
@@ -25,7 +25,6 @@
     ((nptr char-ptr)
      (endptr (* char-ptr))
      (base :int))
-  :module "c"
   :returning :long)
 
 (defun strtol (str &optional (base 10))
@@ -55,10 +54,10 @@ of first non-valid character"
        (uffi:free-foreign-object str-native)
        (uffi:free-foreign-object endptr)))))
 
-(deftest strtol.1 (strtol "123") 123 t)
-(deftest strtol.2 (strtol "0") 0 t)
-(deftest strtol.3 (strtol "55a") 55 2)
-(deftest strtol.4 (strtol "a") nil nil)
+(deftest :strtol.1 (strtol "123") 123 t)
+(deftest :strtol.2 (strtol "0") 0 t)
+(deftest :strtol.3 (strtol "55a") 55 2)
+(deftest :strtol.4 (strtol "a") nil nil)