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

diff --git a/tests/strtol.lisp b/tests/strtol.lisp
index b9b73bd..8252f7f 100644
--- a/tests/strtol.lisp
+++ b/tests/strtol.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; $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
 ;;;;
 ;;;; *************************************************************************
 
@@ -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)