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

io.monitors: Run each set of monitors tests in its own directory. Fixes #1106.

db4
Doug Coleman 2015-05-19 10:50:17 -07:00
parent a66bed77b3
commit 0962b4a697
1 changed files with 80 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

164
basis/io/monitors/monitors-tests.factor
View File

@ -7,126 +7,122 @@ IN: io.monitors.tests
os { windows linux macosx } member? [ os { windows linux macosx } member? [
[ [
[ "monitor-test" temp-file delete-tree ] ignore-errors [
[ "monitor-test" temp-file delete-tree ] ignore-errors
[ ] [ "monitor-test" temp-file make-directory ] unit-test [ ] [ "monitor-test" temp-file make-directory ] unit-test
[ ] [ "monitor-test" temp-file t <monitor> "m" set ] unit-test [ ] [ "monitor-test" temp-file t <monitor> "m" set ] unit-test
[ ] [ "monitor-test/a1" temp-file make-directory ] unit-test [ ] [ "monitor-test/a1" temp-file make-directory ] unit-test
[ ] [ "monitor-test/a2" temp-file make-directory ] unit-test [ ] [ "monitor-test/a2" temp-file make-directory ] unit-test
[ ] [ "monitor-test/a1" temp-file "monitor-test/a2" temp-file move-file-into ] unit-test [ ] [ "monitor-test/a1" temp-file "monitor-test/a2" temp-file move-file-into ] unit-test
[ t ] [ "monitor-test/a2/a1" temp-file exists? ] unit-test [ t ] [ "monitor-test/a2/a1" temp-file exists? ] unit-test
[ ] [ "monitor-test/a2/a1/a3.txt" temp-file touch-file ] unit-test [ ] [ "monitor-test/a2/a1/a3.txt" temp-file touch-file ] unit-test
[ t ] [ "monitor-test/a2/a1/a3.txt" temp-file exists? ] unit-test [ t ] [ "monitor-test/a2/a1/a3.txt" temp-file exists? ] unit-test
[ ] [ "monitor-test/a2/a1/a4.txt" temp-file touch-file ] unit-test [ ] [ "monitor-test/a2/a1/a4.txt" temp-file touch-file ] unit-test
[ ] [ "monitor-test/a2/a1/a5.txt" temp-file touch-file ] unit-test [ ] [ "monitor-test/a2/a1/a5.txt" temp-file touch-file ] unit-test
[ ] [ "monitor-test/a2/a1/a4.txt" temp-file delete-file ] unit-test [ ] [ "monitor-test/a2/a1/a4.txt" temp-file delete-file ] unit-test
[ ] [ "monitor-test/a2/a1/a5.txt" temp-file "monitor-test/a2/a1/a4.txt" temp-file move-file ] unit-test [ ] [ "monitor-test/a2/a1/a5.txt" temp-file "monitor-test/a2/a1/a4.txt" temp-file move-file ] unit-test
[ t ] [ "monitor-test/a2/a1/a4.txt" temp-file exists? ] unit-test [ t ] [ "monitor-test/a2/a1/a4.txt" temp-file exists? ] unit-test
[ ] [ "m" get dispose ] unit-test [ ] [ "m" get dispose ] unit-test
] with-unique-directory delete-tree
] with-monitors ] with-monitors
[ [
[ "monitor-test" temp-file delete-tree ] ignore-errors [
[ "monitor-test" temp-file delete-tree ] ignore-errors
[ ] [ "monitor-test/xyz" temp-file make-directories ] unit-test [ ] [ "monitor-test/xyz" temp-file make-directories ] unit-test
[ ] [ "monitor-test" temp-file t <monitor> "m" set ] unit-test
[ ] [ "monitor-test" temp-file t <monitor> "m" set ] unit-test
[ ] [ 1 <count-down> "b" set ] unit-test
[ ] [ 1 <count-down> "c1" set ] unit-test
[ ] [ 1 <count-down> "c2" set ] unit-test
[ ] [
[
"b" get count-down
[ ] [ 1 <count-down> "b" set ] unit-test
[ ] [ 1 <count-down> "c1" set ] unit-test
[ ] [ 1 <count-down> "c2" set ] unit-test
[ ] [
[ [
"m" get next-change path>> "b" get count-down
dup print flush
dup parent-directory
[ trim-tail-separators "xyz" tail? ] either? not
] loop
"c1" get count-down [
"m" get next-change path>>
[ dup print flush
"m" get next-change path>> dup parent-directory
dup print flush [ trim-tail-separators "xyz" tail? ] either? not
dup parent-directory ] loop
[ trim-tail-separators "yxy" tail? ] either? not
] loop
"c2" get count-down "c1" get count-down
] "Monitor test thread" spawn drop [
] unit-test "m" get next-change path>>
dup print flush
[ ] [ "b" get await ] unit-test dup parent-directory
[ trim-tail-separators "yxy" tail? ] either? not
[ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test ] loop
[ ] [ "c1" get 1 minutes await-timeout ] unit-test "c2" get count-down
] "Monitor test thread" spawn drop
[ ] [ "monitor-test/subdir/blah/yxy" temp-file make-directories ] unit-test ] unit-test
[ ] [ "monitor-test/subdir/blah/yxy/test.txt" temp-file touch-file ] unit-test [ ] [ "b" get await ] unit-test
[ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test
[ ] [ "c1" get 1 minutes await-timeout ] unit-test
[ ] [ "monitor-test/subdir/blah/yxy" temp-file make-directories ] unit-test
[ ] [ "monitor-test/subdir/blah/yxy/test.txt" temp-file touch-file ] unit-test
[ ] [ "c2" get 1 minutes await-timeout ] unit-test
[ ] [ "c2" get 1 minutes await-timeout ] unit-test ! Dispose twice
[ ] [ "m" get dispose ] unit-test
! Dispose twice [ ] [ "m" get dispose ] unit-test
[ ] [ "m" get dispose ] unit-test ] with-unique-directory delete-tree
[ ] [ "m" get dispose ] unit-test
] with-monitors ] with-monitors
! Out-of-scope disposal should not fail ! Out-of-scope disposal should not fail
[ ] [ [ "" resource-path f <monitor> ] with-monitors dispose ] unit-test [ ] [ [ "" resource-path f <monitor> ] with-monitors dispose ] unit-test
[ ] [ [ "" resource-path t <monitor> ] with-monitors dispose ] unit-test [ ] [ [ "" resource-path t <monitor> ] with-monitors dispose ] unit-test
! Timeouts ! Timeouts
[ [
[ ] [ "monitor-timeout-test" temp-file make-directories ] unit-test [
[ ] [ "monitor-timeout-test" temp-file make-directories ] unit-test
! Non-recursive ! Non-recursive
[ ] [ "monitor-timeout-test" temp-file f <monitor> "m" set ] unit-test [ ] [ "monitor-timeout-test" temp-file f <monitor> "m" set ] unit-test
[ ] [ 3 seconds "m" get set-timeout ] unit-test [ ] [ 3 seconds "m" get set-timeout ] unit-test
[ [ t ] [ "m" get next-change drop ] while ] must-fail [ [ t ] [ "m" get next-change drop ] while ] must-fail
[ ] [ "m" get dispose ] unit-test [ ] [ "m" get dispose ] unit-test
! Recursive ! Recursive
[ ] [ "monitor-timeout-test" temp-file t <monitor> "m" set ] unit-test [ ] [ "monitor-timeout-test" temp-file t <monitor> "m" set ] unit-test
[ ] [ 3 seconds "m" get set-timeout ] unit-test [ ] [ 3 seconds "m" get set-timeout ] unit-test
[ [ t ] [ "m" get next-change drop ] while ] must-fail [ [ t ] [ "m" get next-change drop ] while ] must-fail
[ ] [ "m" get dispose ] unit-test [ ] [ "m" get dispose ] unit-test
] with-unique-directory delete-tree
] with-monitors ] with-monitors
! Disposing a monitor should throw an error in any threads ! Disposing a monitor should throw an error in any threads
! waiting on notifications ! waiting on notifications
[ [
[ ] [
<promise> "p" set
"monitor-test" temp-file t <monitor> "m" set
10 seconds "m" get set-timeout
] unit-test
[ [
[ "m" get next-change ] [ ] recover [ ] [
"p" get fulfill <promise> "p" set
] in-thread "monitor-test" temp-file t <monitor> "m" set
10 seconds "m" get set-timeout
] unit-test
[ ] [ 1 seconds sleep ] unit-test [
[ ] [ "m" get dispose ] unit-test [ "m" get next-change ] [ ] recover
[ t ] [ "p" get 10 seconds ?promise-timeout already-disposed? ] unit-test "p" get fulfill
] in-thread
[ ] [ 1 seconds sleep ] unit-test
[ ] [ "m" get dispose ] unit-test
[ t ] [ "p" get 10 seconds ?promise-timeout already-disposed? ] unit-test
] with-unique-directory delete-tree
] with-monitors ] with-monitors
] when ] when