basis/io/files/info/info-tests.factor

   1 USING: io.files.info io.encodings.utf8 io.files
   2 io.directories kernel io.pathnames accessors tools.test
   3 sequences io.files.temp ;
   4
   5 { "hi41" } [
   6     [
   7         "hi41" "test41" utf8 set-file-contents
   8         "test41" utf8 file-contents
   9     ] with-temp-directory
  10 ] unit-test
  11
  12 { 4 } [
  13     [ "test41" file-info size>> ] with-temp-directory
  14 ] unit-test
  15
  16 { t } [ "/" file-system-info file-system-info-tuple? ] unit-test
  17 { t } [ file-systems [ file-system-info-tuple? ] all? ] unit-test