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

io.directories: use factor for touch-file.

master
John Benediktsson 2020-04-13 10:28:16 -07:00
parent f0013a8815
commit c56dd706ce
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/directories/directories-tests.factor
View File

@ -160,9 +160,13 @@ system tools.test ;
{ } [ "copy-tree-test" delete-tree ] unit-test { } [ "copy-tree-test" delete-tree ] unit-test
! Issue #890 ! Issue #890
{ } [ { f t } [
"foo" [ make-directories ] keep "foo" [ make-directories ] keep
[ vm-path "-help" 2array try-output-process ] with-directory [
"bar" exists?
vm-path "-e=USE: io.directories \"bar\" touch-file" 2array try-output-process
"bar" exists?
] with-directory
] unit-test ] unit-test
{ t } [ { t } [