From d89df834cdeef8fc802a3865eb4495fd4bddacc2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 3 Feb 2006 20:52:29 +0000 Subject: [PATCH] //?/ paths and file-size svn: r2112 --- collects/tests/mzscheme/path.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/tests/mzscheme/path.ss b/collects/tests/mzscheme/path.ss index 3bbea9160e..9737c152da 100644 --- 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) )) '("\\" "\\\\"))))