aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/world/file/watch.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-07-02 03:11:36 -0400
committerEduardo Julian2021-07-02 03:11:36 -0400
commit5cf4efa861075f8276f43a2516f5beacaf610b44 (patch)
treee21cf528d960c29d22cbc7e41180fa09e62f16d6 /stdlib/source/test/lux/world/file/watch.lux
parent744ee69630de59ca3ba660b0aab6361cd17ce1b4 (diff)
No longer employing the capabilities model on the lux/world/* modules.
Capabilities should be opt-in, but using them in the standard library makes them mandatory.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/world/file/watch.lux12
1 files changed, 5 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index c0873b41a..9c1b31811 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -8,9 +8,7 @@
["." try]
["." exception]
[concurrency
- ["." promise]]
- [security
- ["!" capability]]]
+ ["." promise]]]
[data
["." binary ("#\." equivalence)]
["." text ("#\." equivalence)
@@ -106,12 +104,12 @@
data (_binary.random 10)]
(wrap (do {! promise.monad}
[verdict (do (try.with !)
- [_ (!.use (\ fs create_directory) [directory])
+ [_ (\ fs create_directory directory)
_ (\ watcher start /.all directory)
poll/0 (\ watcher poll [])
#let [no_events_prior_to_creation!
(list.empty? poll/0)]
- file (!.use (\ fs create_file) [expected_path])
+ file (\ fs create_file expected_path)
poll/1 (\ watcher poll [])
poll/1' (\ watcher poll [])
#let [after_creation!
@@ -126,7 +124,7 @@
false)
(list.empty? poll/1'))]
_ (promise.delay 1 (#try.Success "Delay to make sure the over_write time-stamp always changes."))
- _ (!.use (\ file over_write) data)
+ _ (\ file over_write data)
poll/2 (\ watcher poll [])
poll/2' (\ watcher poll [])
#let [after_modification!
@@ -140,7 +138,7 @@
_
false)
(list.empty? poll/2'))]
- _ (!.use (\ file delete) [])
+ _ (\ file delete [])
poll/3 (\ watcher poll [])
poll/3' (\ watcher poll [])
#let [after_deletion!