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

   1 USING: io.files.info io.pathnames 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 \ file-info must-infer
   7 \ link-info must-infer
   8
   9 [ t ] [
  10     temp-directory [ "hi41" "test41" utf8 set-file-contents ] with-directory
  11     temp-directory "test41" append-path utf8 file-contents "hi41" =
  12 ] unit-test
  13
  14 [ t ] [
  15     temp-directory [ "test41" file-info size>> ] with-directory 4 =
  16 ] unit-test
  17
  18 [ t ] [ "/" file-system-info file-system-info? ] unit-test
  19 [ t ] [ file-systems [ file-system-info? ] all? ] unit-test