X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstrtol.lisp;fp=tests%2Fstrtol.lisp;h=cb053cf1351b7f01a2069e9024d1f613c00b0f7b;hb=0824453227a26da41a3929c9117b66714980414b;hp=b9b73bd805410ff22f7eb92723ce17ee2b39b1bd;hpb=7004c2691d5695471c7bce9d62b82a1914cf05a2;p=uffi.git diff --git a/tests/strtol.lisp b/tests/strtol.lisp index b9b73bd..cb053cf 100644 --- a/tests/strtol.lisp +++ b/tests/strtol.lisp @@ -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)