add file-systems unit test

2008-12-02 16:03:01 -06:00 · 2008-12-02 16:03:01 -06:00 · 1777dde283
parent 6d183a7410
commit 1777dde283
1 changed files with 3 additions and 0 deletions
--- a/core/io/files/files-tests.factor
+++ b/core/io/files/files-tests.factor
@ -283,3 +283,6 @@ USE: debugger.threads
    [ "resource:core/bootstrap/stage2.factor" (normalize-path) ]
    unit-test
 ] with-scope
+
+[ t ] [ "/" file-system-info file-system-info? ] unit-test
+[ t ] [ file-systems [ file-system-info? ] all? ] unit-test