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 [ t ] [
   7     temp-directory [ "hi41" "test41" utf8 set-file-contents ] with-directory
   8     temp-directory "test41" append-path utf8 file-contents "hi41" =
   9 ] unit-test
  10
  11 [ t ] [
  12     temp-directory [ "test41" file-info size>> ] with-directory 4 =
  13 ] unit-test
  14
  15 [ t ] [ "/" file-system-info file-system-info-tuple? ] unit-test
  16 [ t ] [ file-systems [ file-system-info-tuple? ] all? ] unit-test