From 1777dde2839fb59ad12efa8ba81ca13d6641aba7 Mon Sep 17 00:00:00 2001 From: sheeple Date: Tue, 2 Dec 2008 16:03:01 -0600 Subject: [PATCH] add file-systems unit test --- core/io/files/files-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor index 3104fcdb55..4299634642 100644 --- 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