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

io.pathnames: don't use temp-file

locals-and-roots
Doug Coleman 2016-03-30 16:47:32 -07:00
parent 24d9e3a491
commit fe7d6ea76e
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/io/pathnames/pathnames-tests.factor
View File

@ -1,7 +1,6 @@
USING: continuations hashtables io.backend io.directories USING: io.backend io.directories io.files.private io.files.temp
io.files.private io.files.temp io.pathnames kernel math io.files.unique io.pathnames kernel locals math namespaces
namespaces system tools.test ; system tools.test ;
IN: io.pathnames.tests
{ "passwd" } [ "/etc/passwd" file-name ] unit-test { "passwd" } [ "/etc/passwd" file-name ] unit-test
{ "awk" } [ "/usr/libexec/awk/" file-name ] unit-test { "awk" } [ "/usr/libexec/awk/" file-name ] unit-test
@ -53,8 +52,11 @@ IN: io.pathnames.tests
{ t } [ "resource:core" absolute-path? ] unit-test { t } [ "resource:core" absolute-path? ] unit-test
{ f } [ "" absolute-path? ] unit-test { f } [ "" absolute-path? ] unit-test
[ "touch-twice-test" temp-file delete-file ] ignore-errors [
{ } [ 2 [ "touch-twice-test" temp-file touch-file ] times ] unit-test "touch-twice-test" ".txt" [| path |
{ } [ 2 [ path touch-file ] times ] unit-test
] cleanup-unique-file
] with-temp-directory
! aum's bug ! aum's bug
H{ H{