X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstrtol.lisp;h=8252f7fb65e97a3f691f5590e636baefa969e973;hb=3ade95bab16abe09642554e9cbf56f117f01e507;hp=c3bfe1393d936d0b064b12b3054ecf125399e866;hpb=ebedde4e67b858b1f65c5eb4dc7bc45978ed1e40;p=uffi.git diff --git a/tests/strtol.lisp b/tests/strtol.lisp index c3bfe13..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 ;;;; ;;;; ************************************************************************* @@ -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)