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 IN: io.files.info.tests
   5
   6 { "hi41" } [
   7     [
   8         "hi41" "test41" utf8 set-file-contents
   9         "test41" utf8 file-contents
  10     ] with-temp-directory
  11 ] unit-test
  12
  13 { 4 } [
  14     [ "test41" file-info size>> ] with-temp-directory
  15 ] unit-test
  16
  17 { t } [ "/" file-system-info file-system-info-tuple? ] unit-test
  18 { t } [ file-systems [ file-system-info-tuple? ] all? ] unit-test