steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add a unit test for tools.files

db4
Doug Coleman 2008-12-08 12:46:44 -06:00
parent 90cdb6c4f4
commit 22dd6a74b6
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/tools/files/files-tests.factor
View File

@ -6,3 +6,6 @@ IN: tools.files.tests
\ directory. must-infer \ directory. must-infer
[ ] [ "" directory. ] unit-test [ ] [ "" directory. ] unit-test
[ ]
[ { device-name free-space used-space total-space percent-used } file-systems. ] unit-test

2
basis/tools/files/files.factor
View File

@ -65,5 +65,3 @@ percent-used percent-free ;
{ [ os unix? ] [ "tools.files.unix" ] } { [ os unix? ] [ "tools.files.unix" ] }
{ [ os windows? ] [ "tools.files.windows" ] } { [ os windows? ] [ "tools.files.windows" ] }
} cond require } cond require
! { device-name free-space used-space total-space percent-used } file-systems.