Use / as target directory in cd tests

This commit is contained in:
mainzelm 2006-04-05 07:53:03 +00:00
parent 329e4539b0
commit 3b4becd2ba
1 changed files with 2 additions and 2 deletions

View File

@ -32,7 +32,7 @@
(with-cwd new-cwd
(equal? (cwd) new-cwd))
(equal? (cwd) old-cwd))))
"/etc")
"/")
(add-test! 'chdir 'process-state
(lambda (new-cwd)
@ -41,5 +41,5 @@
(let ((res (cwd)))
(chdir old-cwd)
(equal? res new-cwd))))
"/etc")
"/")