X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstrtol.lisp;h=8252f7fb65e97a3f691f5590e636baefa969e973;hb=895cdddc64ad069c4d8173a21d0d5ce47b79e919;hp=0167dbf700bd823c00ab11e32ce7ed01c362b50d;hpb=65e2a75247b894d1f562102ef1df77c7060b5048;p=uffi.git

diff --git a/tests/strtol.lisp b/tests/strtol.lisp
index 0167dbf..8252f7f 100644
--- a/tests/strtol.lisp
+++ b/tests/strtol.lisp
@@ -7,9 +7,9 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: strtol.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
 ;;;;
 ;;;; *************************************************************************
 
@@ -54,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)