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

Add unit tests for monitors

db4
Slava Pestov 2008-04-09 19:54:48 -05:00
parent 901bac889a
commit b63edfd493
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/io/monitors/monitors-tests.factor
View File

@ -1,29 +1,34 @@
IN: io.monitors.tests IN: io.monitors.tests
USING: io.monitors tools.test io.files system sequences USING: io.monitors tools.test io.files system sequences
continuations namespaces concurrency.count-downs kernel io continuations namespaces concurrency.count-downs kernel io
threads calendar ; threads calendar prettyprint ;
os { winnt macosx linux } member? [ os { winnt macosx linux } 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/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> "c" set ] unit-test [ ] [ 1 <count-down> "c" set ] unit-test
[ ] [ [ ] [
[ [
"b" get count-down
[ [
"m" get next-change drop "m" get next-change drop
dup print flush dup print flush right-trim-separators
"test.txt" tail? not "xyz" tail? not
] [ ] [ ] while ] [ ] [ ] while
"c" get count-down "c" get count-down
] "Monitor test thread" spawn drop ] "Monitor test thread" spawn drop
] unit-test ] unit-test
[ ] [ "monitor-test/test.txt" touch-file ] unit-test [ ] [ "b" get await ] unit-test
[ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test
[ ] [ "c" get 30 seconds await-timeout ] unit-test [ ] [ "c" get 30 seconds await-timeout ] unit-test
] when ] when