diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/compiler/meta/cache/module.lux')
| -rw-r--r-- | stdlib/source/test/lux/meta/compiler/meta/cache/module.lux | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/stdlib/source/test/lux/meta/compiler/meta/cache/module.lux b/stdlib/source/test/lux/meta/compiler/meta/cache/module.lux index bdf4b01fe..98cf9da8f 100644 --- a/stdlib/source/test/lux/meta/compiler/meta/cache/module.lux +++ b/stdlib/source/test/lux/meta/compiler/meta/cache/module.lux @@ -19,9 +19,7 @@ ["[0]" unit] ["_" property (.only Test)]]]] [\\library - ["[0]" /]] - ["$[0]" /// - ["[1][0]" context]]) + ["[0]" /]]) (`` (def (bad it) (-> (file.System Async) (file.System Async)) @@ -54,17 +52,16 @@ Test (<| (_.covering /._) (do [! random.monad] - [context $///context.random - @module random.nat] + [@module random.nat] (all _.and (in (do [! async.monad] [.let [/ "/" fs (file.mock /)] - pre/0 (of fs directory? (/.path fs context @module)) - pre/1 (/.enabled? fs context @module) - outcome (/.enable! ! fs context @module) - post/0 (of fs directory? (/.path fs context @module)) - post/1 (/.enabled? fs context @module)] + pre/0 (of fs directory? (/.path fs @module)) + pre/1 (/.enabled? fs @module) + outcome (/.enable! ! fs @module) + post/0 (of fs directory? (/.path fs @module)) + post/1 (/.enabled? fs @module)] (unit.coverage [/.path /.enabled? /.enable!] (and (not pre/0) (not pre/1) @@ -78,11 +75,11 @@ (in (do [! async.monad] [.let [/ "/" fs (file.mock /)] - pre/0 (of fs directory? (/.path fs context @module)) - pre/1 (/.enabled? fs context @module) - outcome (/.enable! ! (..bad fs) context @module) - post/0 (of fs directory? (/.path fs context @module)) - post/1 (/.enabled? fs context @module)] + pre/0 (of fs directory? (/.path fs @module)) + pre/1 (/.enabled? fs @module) + outcome (/.enable! ! (..bad fs) @module) + post/0 (of fs directory? (/.path fs @module)) + post/1 (/.enabled? fs @module)] (unit.coverage [/.cannot_enable] (and (not pre/0) (not pre/1) |