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

View File

@ -160,9 +160,13 @@ system tools.test ;
{ } [ "copy-tree-test" delete-tree ] unit-test
! Issue #890
{ } [
{ f t } [
"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
{ t } [