X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fatoifl.lisp;h=fce1e7fa91fee84b0a2bdb362e64844c85715e4c;hb=0824453227a26da41a3929c9117b66714980414b;hp=b5cc75b2c70490de52dba3ae0cb676c46cbd2f80;hpb=65e2a75247b894d1f562102ef1df77c7060b5048;p=uffi.git diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp index b5cc75b..fce1e7f 100644 --- a/tests/atoifl.lisp +++ b/tests/atoifl.lisp @@ -7,7 +7,7 @@ ;;;; 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 ;;;; @@ -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)