1 USING: accessors math kernel namespaces continuations
2 io.files io.monitors io.monitors.recursive io.backend
3 concurrency.mailboxes tools.test destructors io.files.info
4 io.pathnames io.files.temp io.directories.hierarchy ;
5 IN: io.monitors.recursive.tests
7 \ pump-thread must-infer
9 SINGLETON: mock-io-backend
13 SYMBOL: dummy-monitor-created
14 SYMBOL: dummy-monitor-disposed
16 TUPLE: dummy-monitor < monitor ;
18 M: dummy-monitor dispose
19 drop dummy-monitor-disposed get [ 1+ ] change-i drop ;
21 M: mock-io-backend (monitor)
24 dummy-monitor new-monitor
25 dummy-monitor-created get [ 1+ ] change-i drop
27 "Does not exist" throw
30 M: mock-io-backend link-info
31 global [ link-info ] bind ;
33 [ ] [ 0 counter boa dummy-monitor-created set ] unit-test
34 [ ] [ 0 counter boa dummy-monitor-disposed set ] unit-test
37 mock-io-backend io-backend [
38 "" resource-path <mailbox> <recursive-monitor> dispose
42 [ t ] [ dummy-monitor-created get i>> 0 > ] unit-test
44 [ t ] [ dummy-monitor-created get i>> dummy-monitor-disposed get i>> = ] unit-test
46 [ "doesnotexist" temp-file delete-tree ] ignore-errors
49 mock-io-backend io-backend [
50 "doesnotexist" temp-file <mailbox> <recursive-monitor> dispose
55 mock-io-backend io-backend [
56 "" resource-path <mailbox> <recursive-monitor>
57 [ dispose ] [ dispose ] bi