io.monitors: Run each set of monitors tests in its own directory. Fixes #1106.
parent
a66bed77b3
commit
0962b4a697
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue