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

make directory work inside with-directory

db4
erg 2008-03-26 22:47:13 -05:00
parent 5f38dca1e5
commit 5bab5de16d
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/io/backend/backend.factor
View File

@ -17,10 +17,10 @@ HOOK: io-multiplex io-backend ( ms -- )
HOOK: normalize-directory io-backend ( str -- newstr ) HOOK: normalize-directory io-backend ( str -- newstr )
M: object normalize-directory ;
HOOK: normalize-pathname io-backend ( str -- newstr ) HOOK: normalize-pathname io-backend ( str -- newstr )
M: object normalize-directory normalize-pathname ;
: set-io-backend ( io-backend -- ) : set-io-backend ( io-backend -- )
io-backend set-global init-io init-stdio ; io-backend set-global init-io init-stdio ;

6
core/io/files/files-tests.factor
View File

@ -83,6 +83,12 @@ io.encodings.utf8 ;
"delete-tree-test" temp-file delete-tree "delete-tree-test" temp-file delete-tree
] unit-test ] unit-test
[ { { "kernel" t } } ] [
"core" resource-path [
"." directory [ first "kernel" = ] subset
] with-directory
] unit-test
[ ] [ [ ] [
"copy-tree-test/a/b/c" temp-file make-directories "copy-tree-test/a/b/c" temp-file make-directories
] unit-test ] unit-test