2009-05-16 01:29:21 -04:00
|
|
|
USING: io.files.info io.encodings.utf8 io.files
|
2008-12-14 22:21:44 -05:00
|
|
|
io.directories kernel io.pathnames accessors tools.test
|
|
|
|
sequences io.files.temp ;
|
2008-12-14 21:03:00 -05:00
|
|
|
IN: io.files.info.tests
|
|
|
|
|
2016-03-17 20:51:36 -04:00
|
|
|
{ "hi41" } [
|
|
|
|
[
|
|
|
|
"hi41" "test41" utf8 set-file-contents
|
|
|
|
"test41" utf8 file-contents
|
|
|
|
] with-temp-directory
|
2008-12-14 21:03:00 -05:00
|
|
|
] unit-test
|
|
|
|
|
2016-03-17 20:51:36 -04:00
|
|
|
{ 4 } [
|
|
|
|
[ "test41" file-info size>> ] with-temp-directory
|
2008-12-14 21:03:00 -05:00
|
|
|
] unit-test
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ "/" file-system-info file-system-info-tuple? ] unit-test
|
|
|
|
{ t } [ file-systems [ file-system-info-tuple? ] all? ] unit-test
|