37 lines
922 B
Factor
37 lines
922 B
Factor
USING: accessors calendar destructors io.directories io.monitors
|
|
io.pathnames io.timeouts kernel namespaces tools.test ;
|
|
|
|
! On Linux, a notification on the directory itself would report an invalid
|
|
! path name
|
|
[
|
|
[
|
|
! Non-recursive
|
|
{ } [
|
|
"." f <monitor> "m" set
|
|
3 seconds "m" get set-timeout
|
|
"." touch-file
|
|
] unit-test
|
|
|
|
{ t } [
|
|
"m" get next-change path>>
|
|
[ "" = ] [ "." absolute-path = ] bi or
|
|
] unit-test
|
|
|
|
{ } [ "m" get dispose ] unit-test
|
|
|
|
! Recursive
|
|
{ } [
|
|
"." t <monitor> "m" set
|
|
3 seconds "m" get set-timeout
|
|
"." touch-file
|
|
] unit-test
|
|
|
|
{ t } [
|
|
"m" get next-change path>>
|
|
[ "" = ] [ "." absolute-path = ] bi or
|
|
] unit-test
|
|
|
|
{ } [ "m" get dispose ] unit-test
|
|
] with-monitors
|
|
] with-test-directory
|