//?/ paths and file-size

svn: r2112
2006-02-03 20:52:29 +00:00 · 2006-02-03 20:52:29 +00:00 · d89df834cd
commit d89df834cd
parent 341ce31507
1 changed files with 1 additions and 0 deletions
--- a/collects/tests/mzscheme/path.ss
+++ b/collects/tests/mzscheme/path.ss
@ -443,6 +443,7 @@
 		 (test #t file-exists? filestr)
 		 (test #f file-exists? (string-append filestr "\\"))
 		 (test (file-or-directory-modify-seconds file) file-or-directory-modify-seconds filestr)
+		 (test (file-size file) file-size filestr)
 		 ))
 	     '("\\" "\\\\"))))