X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fatoifl.lisp;fp=tests%2Fatoifl.lisp;h=41945d9005b8f0c0b6c8441a649465d02ec775be;hb=72190043201239567658cfbae1c36bbd7233419b;hp=7dca5a2694e970631d28aae0ba186a23f47f5cf9;hpb=da9ef130a96ba9102fc0cf68b1fe8cd0a90e67b7;p=uffi.git diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp index 7dca5a2..41945d9 100644 --- a/tests/atoifl.lisp +++ b/tests/atoifl.lisp @@ -15,15 +15,15 @@ (in-package #:uffi-tests) -(uffi:def-function ("atoi" c-atoi) +(uffi:def-function ("atoi" c-atoi) ((str :cstring)) :returning :int) -(uffi:def-function ("atol" c-atol) +(uffi:def-function ("atol" c-atol) ((str :cstring)) :returning :long) -(uffi:def-function ("atof" c-atof) +(uffi:def-function ("atof" c-atof) ((str :cstring)) :returning :double) @@ -36,7 +36,7 @@ "Returns a double float from a string." (uffi:with-cstring (str-cstring str) (c-atof str-cstring))) - + (deftest :atoi.1 (atoi "123") 123) (deftest :atoi.2 (atoi "") 0) (deftest :atof.3 (atof "2.23") 2.23d0)