X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fgetenv.lisp;h=4146b3b0d8c196147f5f9ec315abd241e539a0a6;hb=1e5809bc5e68d9f1f5a676fa24253b3b95d490ac;hp=19fe1936ddf600b23a6804c18e0b68c7f3a93230;hpb=ebedde4e67b858b1f65c5eb4dc7bc45978ed1e40;p=uffi.git diff --git a/tests/getenv.lisp b/tests/getenv.lisp index 19fe193..4146b3b 100644 --- a/tests/getenv.lisp +++ b/tests/getenv.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 ;;;; ;;;; ************************************************************************* @@ -51,11 +51,11 @@ (uffi:with-cstrings ((key-native key)) (c-unsetenv key-native))) -(deftest getenv.1 (progn +(deftest :getenv.1 (progn (my-unsetenv "__UFFI_FOO1__") (my-getenv "__UFFI_FOO1__")) nil) -(deftest getenv.2 (progn +(deftest :getenv.2 (progn (my-setenv "__UFFI_FOO1__" "UFFI-TEST") (my-getenv "__UFFI_FOO1__")) "UFFI-TEST")