extra/mason/disk/disk-tests.factor

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