extra/mason/disk/disk-tests.factor

   1 USING: mason.config mason.disk namespaces io.directories
   2 io.files.temp tools.test strings sequences ;
   3
   4 "builds" temp-file builds-dir [
   5     builds-dir get make-directories
   6
   7     [ t ] [ disk-usage string? ] unit-test
   8
   9     [ t ] [ sufficient-disk-space? { t f } member? ] unit-test
  10 ] with-variable