diff options
Diffstat (limited to 'stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux')
-rw-r--r-- | stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux | 16 |
1 files changed, 8 insertions, 8 deletions
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 02d6402fb..c5bc1dfb5 100644 --- a/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux +++ b/stdlib/source/test/lux/meta/compiler/meta/cache/purge.lux @@ -83,10 +83,10 @@ archive.#output (sequence.sequence) archive.#registry registry.empty]]))] (and (let [cache (is (List /.Cache) - (list [#1 name/0 id/0 module/0 registry.empty]))] + (list [true name/0 id/0 module/0 registry.empty]))] (dictionary.empty? (/.purge cache order))) (let [cache (is (List /.Cache) - (list [#0 name/0 id/0 module/0 registry.empty]))] + (list [false name/0 id/0 module/0 registry.empty]))] (dictionary.key? (/.purge cache order) name/0)))) (let [order (is (dependency.Order Nat) (list [name/0 id/0 @@ -98,19 +98,19 @@ archive.#output (sequence.sequence) archive.#registry registry.empty]]))] (and (let [cache (is (List /.Cache) - (list [#1 name/0 id/0 module/0 registry.empty] - [#1 name/1 id/1 module/1 registry.empty])) + (list [true name/0 id/0 module/0 registry.empty] + [true name/1 id/1 module/1 registry.empty])) purge (/.purge cache order)] (dictionary.empty? purge)) (let [cache (is (List /.Cache) - (list [#1 name/0 id/0 module/0 registry.empty] - [#0 name/1 id/1 module/1 registry.empty])) + (list [true name/0 id/0 module/0 registry.empty] + [false name/1 id/1 module/1 registry.empty])) purge (/.purge cache order)] (and (not (dictionary.key? (/.purge cache order) name/0)) (dictionary.key? (/.purge cache order) name/1))) (let [cache (is (List /.Cache) - (list [#0 name/0 id/0 module/0 registry.empty] - [#1 name/1 id/1 module/1 registry.empty])) + (list [false name/0 id/0 module/0 registry.empty] + [true name/1 id/1 module/1 registry.empty])) purge (/.purge cache order)] (and (dictionary.key? (/.purge cache order) name/0) (dictionary.key? (/.purge cache order) name/1))))))) |