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

io.directories: simplify tests by using with-temp-directory.

locals-and-roots
John Benediktsson 2016-03-17 17:11:59 -07:00
parent 0316a04c42
commit 2e85dd2eb3
1 changed files with 20 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,57 +27,54 @@ IN: io.directories.tests
{ t } [ "blahblah" temp-file file-info directory? ] unit-test { t } [ "blahblah" temp-file file-info directory? ] unit-test
{ t } [ { t } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors [
temp-directory [ [ "loldir" delete-directory ] ignore-errors
"loldir" make-directory "loldir" make-directory
] with-directory "loldir" exists?
temp-directory "loldir" append-path exists? ] with-temp-directory
] unit-test ] unit-test
{ } [ { } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors [
temp-directory [ [ "loldir" delete-directory ] ignore-errors
"loldir" make-directory "loldir" make-directory
"loldir" delete-directory "loldir" delete-directory
] with-directory ] with-temp-directory
] unit-test ] unit-test
{ "file1 contents" } [ { "file1 contents" } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors [
temp-directory [
"file1 contents" "file1" utf8 set-file-contents "file1 contents" "file1" utf8 set-file-contents
"file1" "file2" copy-file "file1" "file2" copy-file
"file2" utf8 file-contents "file2" utf8 file-contents
] with-directory "file1" delete-file
"file1" temp-file delete-file "file2" delete-file
"file2" temp-file delete-file ] with-temp-directory
] unit-test ] unit-test
{ "file3 contents" } [ { "file3 contents" } [
temp-directory [ [
"file3 contents" "file3" utf8 set-file-contents "file3 contents" "file3" utf8 set-file-contents
"file3" "file4" move-file "file3" "file4" move-file
"file4" utf8 file-contents "file4" utf8 file-contents
] with-directory "file4" delete-file
"file4" temp-file delete-file ] with-temp-directory
] unit-test ] unit-test
[ "file5" temp-file delete-file ] ignore-errors
{ } [ { } [
temp-directory [ [
[ "file5" delete-file ] ignore-errors
"file5" touch-file "file5" touch-file
"file5" delete-file "file5" delete-file
] with-directory ] with-temp-directory
] unit-test ] unit-test
[ "file6" temp-file delete-file ] ignore-errors
{ } [ { } [
temp-directory [ [
[ "file6" delete-file ] ignore-errors
"file6" touch-file "file6" touch-file
"file6" link-info drop "file6" link-info drop
] with-directory ] with-temp-directory
] unit-test ] unit-test
{ } [ { } [