X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fatoifl.lisp;h=7dca5a2694e970631d28aae0ba186a23f47f5cf9;hb=cc7b3da48f78a00cf62737f447ef9fe05a79bc37;hp=b5cc75b2c70490de52dba3ae0cb676c46cbd2f80;hpb=65e2a75247b894d1f562102ef1df77c7060b5048;p=uffi.git diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp index b5cc75b..7dca5a2 100644 --- a/tests/atoifl.lisp +++ b/tests/atoifl.lisp @@ -7,9 +7,9 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $ +;;;; $Id$ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg ;;;; ;;;; ************************************************************************* @@ -37,6 +37,6 @@ (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) +(deftest :atoi.1 (atoi "123") 123) +(deftest :atoi.2 (atoi "") 0) +(deftest :atof.3 (atof "2.23") 2.23d0)