diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/compiler/meta/cache')
4 files changed, 23 insertions, 31 deletions
diff --git a/stdlib/source/test/lux/meta/compiler/meta/cache/archive.lux b/stdlib/source/test/lux/meta/compiler/meta/cache/archive.lux index 38ed57d7a..61d35ef1d 100644 --- a/stdlib/source/test/lux/meta/compiler/meta/cache/archive.lux +++ b/stdlib/source/test/lux/meta/compiler/meta/cache/archive.lux @@ -35,7 +35,6 @@ ["[0]" document]]]]]]] ["$" // [// - ["[1][0]" context] ["[1][0]" archive (.only) ["[2][0]" signature]] [/// @@ -45,8 +44,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [context $context.random - .let [/ "/" + [.let [/ "/" fs (file.mock /)] module/0 (random.lower_cased 1) module/1 (random.lower_cased 2) @@ -75,11 +73,11 @@ try.trusted)]] (all _.and (in (do [! async.monad] - [pre/0 (of fs file? (/.descriptor fs context)) - enabled? (//.enable! ! fs context) - cached? (/.cache! fs configuration context archive) - actual (of fs read (/.descriptor fs context)) - post/0 (of fs file? (/.descriptor fs context))] + [pre/0 (of fs file? (/.descriptor fs)) + enabled? (//.enable! ! fs) + cached? (/.cache! fs configuration archive) + actual (of fs read (/.descriptor fs)) + post/0 (of fs file? (/.descriptor fs))] (unit.coverage [/.descriptor /.cache!] (and (not pre/0) (|> (do try.monad diff --git a/stdlib/source/test/lux/meta/compiler/meta/cache/artifact.lux b/stdlib/source/test/lux/meta/compiler/meta/cache/artifact.lux index 9c3d95663..5a3083614 100644 --- a/stdlib/source/test/lux/meta/compiler/meta/cache/artifact.lux +++ b/stdlib/source/test/lux/meta/compiler/meta/cache/artifact.lux @@ -42,7 +42,7 @@ (all _.and (in (do [! async.monad] [pre (of fs file? (/.path fs context @module @artifact)) - _ (//module.enable! ! fs context @module) + _ (//module.enable! ! fs @module) write! (/.cache! fs context @module @artifact expected) post (of fs file? (/.path fs context @module @artifact)) read! (/.cache fs context @module @artifact)] 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) diff --git a/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux b/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux index e3d3cc5c8..e18c56e05 100644 --- a/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux +++ b/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux @@ -36,8 +36,6 @@ ["[0]" dependency ["[1]" module]] ["/[1]" // - ["[0]" context (.only) - ["$[1]" \\test]] ["[0]" archive (.only) ["[0]" registry] ["[0]" module (.only) @@ -67,8 +65,7 @@ ////.#hash (the descriptor.#hash descriptor) ////.#code source_code] / "/" - fs (file.mock /)] - context $context.random] + fs (file.mock /)]] (all _.and (_.for [/.Cache] (all _.and @@ -120,14 +117,14 @@ (and (dictionary.key? (/.purge cache order) name/0) (dictionary.key? (/.purge cache order) name/1))))))) (in (do [! async.monad] - [_ (//module.enable! ! fs context id/0) - .let [dir (//module.path fs context id/0) + [_ (//module.enable! ! fs id/0) + .let [dir (//module.path fs id/0) file/0 (%.format dir / name/0) file/1 (%.format dir / name/1)] _ (of fs write file/0 content/0) _ (of fs write file/1 content/1) pre (of fs directory_files dir) - _ (/.purge! fs context id/0) + _ (/.purge! fs id/0) post (of fs directory_files dir)] (unit.coverage [/.purge!] (<| (try.else false) |