steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.info: cleanup by using with-temp-directory.

locals-and-roots
John Benediktsson 2016-03-17 17:51:36 -07:00
parent 2e85dd2eb3
commit 32b29f7079
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/io/files/info/info-tests.factor
View File

@ -3,13 +3,15 @@ io.directories kernel io.pathnames accessors tools.test
sequences io.files.temp ; sequences io.files.temp ;
IN: io.files.info.tests IN: io.files.info.tests
{ t } [ { "hi41" } [
temp-directory [ "hi41" "test41" utf8 set-file-contents ] with-directory [
temp-directory "test41" append-path utf8 file-contents "hi41" = "hi41" "test41" utf8 set-file-contents
"test41" utf8 file-contents
] with-temp-directory
] unit-test ] unit-test
{ t } [ { 4 } [
temp-directory [ "test41" file-info size>> ] with-directory 4 = [ "test41" file-info size>> ] with-temp-directory
] unit-test ] unit-test
{ t } [ "/" file-system-info file-system-info-tuple? ] unit-test { t } [ "/" file-system-info file-system-info-tuple? ] unit-test