Fixed bug in test for sync-file.

2002-02-26 13:02:17 +00:00 · 2002-02-26 13:02:17 +00:00 · 5f7ed5befe
parent 13dabb8f4e
commit 5f7ed5befe
1 changed files with 1 additions and 1 deletions
--- a/scsh/test/file-system-tests.scm
+++ b/scsh/test/file-system-tests.scm
@ -300,7 +300,7 @@
 			   (let ((res-2 (file-size fname)))
 			     (close port)
 			     (delete-filesys-object fname)
-			     (and (= 0 res-1) (> 0 res-2)))))))
+			     (and (= res-1 0) (> res-2 0)))))))
 	   "file")

 ;; --- truncate-file ---