Update of /project/osicat/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv7831

Modified Files: osicat.lisp test-osicat.lisp Log Message: * Fixed return value from MAKUNBOUND-ENVIRONMENT-VARIABLE * More tests

Date: Sun Feb 29 15:52:37 2004 Author: nsiivola

Index: src/osicat.lisp diff -u src/osicat.lisp:1.13 src/osicat.lisp:1.14 --- src/osicat.lisp:1.13 Sun Feb 29 15:29:35 2004 +++ src/osicat.lisp Sun Feb 29 15:52:37 2004 @@ -234,7 +234,7 @@ string designated by name. Signals an error on failure." (with-c-name (cname name) (if (zerop (unsetenv cname)) - nil + (string name) (error "Could not remove environment variable ~S." name))))

(defun environment ()

Index: src/test-osicat.lisp diff -u src/test-osicat.lisp:1.2 src/test-osicat.lisp:1.3 --- src/test-osicat.lisp:1.2 Sun Feb 29 15:29:35 2004 +++ src/test-osicat.lisp Sun Feb 29 15:52:37 2004 @@ -21,6 +21,21 @@

(in-package :osicat-test)

+(deftest current-directory.1 + (equal (current-directory) + #.(make-pathname :name nil :type nil :version nil + :defaults *compile-file-truename*)) + t) + +(deftest current-directory.2 + (let ((old (current-directory))) + (unwind-protect + (progn + (setf (current-directory) "/tmp/") + (equal (current-directory) (truename "/tmp/"))) + (setf (current-directory) old))) + t) + (deftest delete-directory.1 (let ((dir (merge-pathnames "delete-directory/" *test-dir*))) (ensure-directories-exist dir) @@ -41,6 +56,10 @@ t)

(deftest environment.1 + (cdr (assoc "HOME" (environment) :test #'equal)) + #.(namestring (user-homedir-pathname))) + +(deftest environment.2 (unwind-protect (progn (setf (environment-variable 'test-variable) "TEST-VALUE") @@ -100,6 +119,21 @@ (delete-file file))) :regular-file)

+(deftest file-permissions.1 + (and (member :other-read (file-permissions "/tmp/")) + t) + t) + +(deftest file-permissions.2 + (let ((file (ensure-file "tmp-exec"))) + (unwind-protect + (and (not (member :user-exec (file-permissions file))) + (push :user-exec (file-permissions file)) + (member :user-exec (file-permissions file)) + t) + (delete-file file))) + t) + (deftest make-link.1 (let ((link (merge-pathnames "make-link-test-link" *test-dir*)) (file (ensure-file "tmp-file"))) @@ -121,4 +155,13 @@ (delete-file file) (delete-file link))) :symbolic-link) - \ No newline at end of file + +(deftest maunbound-environment-variable.1 + (let ((old (environment-variable :path))) + (unwind-protect + (and old + (makunbound-environment-variable :path) + (null (environment-variable :path)) + t) + (setf (environment-variable :path) old))) + t)