uffi/tests getenv.lisp,1.2,1.3

Update of /pubcvs/uffi/tests
In directory boa.b9.com:/tmp/cvs-serv25982/tests

Modified Files:
	getenv.lisp 
Log Message:


Index: getenv.lisp
===================================================================
RCS file: /pubcvs/uffi/tests/getenv.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** getenv.lisp	29 Apr 2003 14:08:02 -0000	1.2
--- getenv.lisp	1 May 2003 23:31:40 -0000	1.3
***************
*** 55,63 ****
      (c-unsetenv key-native)))
  
! (deftest getenv.1 (my-getenv "__UFFI_FOO1__") nil)
! (deftest setenv.1 (my-setenv "__UFFI_FOO1__" "UFFI-TEST") 0)
! (deftest getenv.2 (my-getenv "__UFFI_FOO1__") "UFFI-TEST")
! (deftest setenv.2 (my-unsetenv "__UFFI_FOO1__") nil)
! (deftest getenv.3 (my-getenv "__UFFI_FOO1__") nil)
  
  
--- 55,66 ----
      (c-unsetenv key-native)))
  
! (deftest getenv.1 (progn
! 		    (my-unsetenv "__UFFI_FOO1__")
! 		    (my-getenv "__UFFI_FOO1__"))
!   nil)
! (deftest getenv.2 (progn
! 		    (my-setenv "__UFFI_FOO1__" "UFFI-TEST")
! 		    (my-getenv "__UFFI_FOO1__"))
!   "UFFI-TEST")