~ chicken-core (chicken-5) fe8f63cb2480870aaf55243c9356c8a3df1d14bb

commit fe8f63cb2480870aaf55243c9356c8a3df1d14bb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Nov 2 14:42:50 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Nov 2 14:42:50 2011 +0100

    minor change in port-tests.scm to handle case when HOME is not defined (Windows)

diff --git a/tests/path-tests.scm b/tests/path-tests.scm
index 4611fc3b..6582cdee 100644
--- a/tests/path-tests.scm
+++ b/tests/path-tests.scm
@@ -54,9 +54,10 @@
 
 (define home (get-environment-variable "HOME"))
 
-(test (string-append home "/foo") (normalize-pathname "~/foo" 'unix))
-(test "c:~/foo" (normalize-pathname "c:~/foo" 'unix))
-(test (string-append home "\\foo") (normalize-pathname "c:~\\foo" 'windows))
+(when home
+  (test (string-append home "/foo") (normalize-pathname "~/foo" 'unix))
+  (test "c:~/foo" (normalize-pathname "c:~/foo" 'unix))
+  (test (string-append home "\\foo") (normalize-pathname "c:~\\foo" 'windows)))
 
 (assert (directory-null? "/.//"))
 (assert (directory-null? ""))