! path name
[
[ ] [ "monitor-test-self" temp-file make-directories ] unit-test
-
+
! Non-recursive
[ ] [ "monitor-test-self" temp-file f <monitor> "m" set ] unit-test
[ ] [ 3 seconds "m" get set-timeout ] unit-test
] unit-test
[ ] [ "m" get dispose ] unit-test
-
+
! Recursive
[ ] [ "monitor-test-self" temp-file t <monitor> "m" set ] unit-test
[ ] [ 3 seconds "m" get set-timeout ] unit-test