scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug in test for sync-file.

This commit is contained in:
mainzelm 2002-02-26 13:02:17 +00:00
parent 13dabb8f4e
commit 5f7ed5befe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/test/file-system-tests.scm
View File

@ -300,7 +300,7 @@
(let ((res-2 (file-size fname))) (let ((res-2 (file-size fname)))
(close port) (close port)
(delete-filesys-object fname) (delete-filesys-object fname)
(and (= 0 res-1) (> 0 res-2))))))) (and (= res-1 0) (> res-2 0)))))))
"file") "file")
;; --- truncate-file --- ;; --- truncate-file ---