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 } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors
temp-directory [
[
[ "loldir" delete-directory ] ignore-errors
"loldir" make-directory
] with-directory
temp-directory "loldir" append-path exists?
"loldir" exists?
] with-temp-directory
] unit-test
{ } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors
temp-directory [
[
[ "loldir" delete-directory ] ignore-errors
"loldir" make-directory
"loldir" delete-directory
] with-directory
] with-temp-directory
] unit-test
{ "file1 contents" } [
[ temp-directory "loldir" append-path delete-directory ] ignore-errors
temp-directory [
[
"file1 contents" "file1" utf8 set-file-contents
"file1" "file2" copy-file
"file2" utf8 file-contents
] with-directory
"file1" temp-file delete-file
"file2" temp-file delete-file
"file1" delete-file
"file2" delete-file
] with-temp-directory
] unit-test
{ "file3 contents" } [
temp-directory [
[
"file3 contents" "file3" utf8 set-file-contents
"file3" "file4" move-file
"file4" utf8 file-contents
] with-directory
"file4" temp-file delete-file
"file4" delete-file
] with-temp-directory
] unit-test
[ "file5" temp-file delete-file ] ignore-errors
{ } [
temp-directory [
[
[ "file5" delete-file ] ignore-errors
"file5" touch-file
"file5" delete-file
] with-directory
] with-temp-directory
] unit-test
[ "file6" temp-file delete-file ] ignore-errors
{ } [
temp-directory [
[
[ "file6" delete-file ] ignore-errors
"file6" touch-file
"file6" link-info drop
] with-directory
] with-temp-directory
] unit-test
{ } [