X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fgetenv.lisp;h=408cf042c9720f1c34735a37fd65f1e7c3573aec;hb=72190043201239567658cfbae1c36bbd7233419b;hp=4146b3b0d8c196147f5f9ec315abd241e539a0a6;hpb=da9ef130a96ba9102fc0cf68b1fe8cd0a90e67b7;p=uffi.git diff --git a/tests/getenv.lisp b/tests/getenv.lisp index 4146b3b..408cf04 100644 --- a/tests/getenv.lisp +++ b/tests/getenv.lisp @@ -16,11 +16,11 @@ (in-package #:uffi-tests) -(uffi:def-function ("getenv" c-getenv) +(uffi:def-function ("getenv" c-getenv) ((name :cstring)) :returning :cstring) -(uffi:def-function ("setenv" c-setenv) +(uffi:def-function ("setenv" c-setenv) ((name :cstring) (value :cstring) (overwrite :int)) @@ -42,7 +42,7 @@ (check-type name string) (setq overwrite (if overwrite 1 0)) (uffi:with-cstrings ((key-native key) - (name-native name)) + (name-native name)) (c-setenv key-native name-native (if overwrite 1 0)))) (defun my-unsetenv (key) @@ -52,12 +52,12 @@ (c-unsetenv key-native))) (deftest :getenv.1 (progn - (my-unsetenv "__UFFI_FOO1__") - (my-getenv "__UFFI_FOO1__")) + (my-unsetenv "__UFFI_FOO1__") + (my-getenv "__UFFI_FOO1__")) nil) (deftest :getenv.2 (progn - (my-setenv "__UFFI_FOO1__" "UFFI-TEST") - (my-getenv "__UFFI_FOO1__")) + (my-setenv "__UFFI_FOO1__" "UFFI-TEST") + (my-getenv "__UFFI_FOO1__")) "UFFI-TEST")