aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/tool/compiler/meta/cache.lux
blob: 27e3c1ded4ac45ab4fb40bf816e16b4c307fc5e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
(.using
 [library
  [lux "*"
   ["_" test {"+" Test}]
   [abstract
    [monad {"+" do}]]
   [control
    ["[0]" try]
    [concurrency
     ["[0]" async]]]
   [math
    ["[0]" random]]
   [world
    ["[0]" file]]]]
 [\\library
  ["[0]" /]]
 ["[0]" / "_"
  ["[1][0]" archive]
  ["[1][0]" module]
  ["[1][0]" artifact]
  ["[1][0]" purge]
  ["$/[1]" // "_"
   ["[1][0]" context]]])

(def: .public test
  Test
  (<| (_.covering /._)
      (do [! random.monad]
        [.let [/ "/"
               fs (file.mock /)]
         context $//context.random]
        (all _.and
             (in (do [! async.monad]
                   [pre/0 (# fs directory? (/.path fs context))
                    pre/1 (/.enabled? fs context)
                    outcome (/.enable! ! fs context)
                    post/0 (# fs directory? (/.path fs context))
                    post/1 (/.enabled? fs context)]
                   (_.coverage' [/.path /.enabled? /.enable!]
                     (and (not pre/0)
                          (not pre/1)
                          
                          (case outcome
                            {try.#Success _} true
                            {try.#Failure _} false)
                          
                          post/0
                          post/1))))

             /archive.test
             /module.test
             /artifact.test
             /purge.test
             ))))