((nptr char-ptr)
(endptr (* char-ptr))
(base :int))
- :module "c"
:returning :long)
(defun strtol (str &optional (base 10))
(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)