aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/metadata/artifact.lux
blob: 041bad539cdedf27ce0acdf58ad25a1ebe5b48a8 (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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
(.using
 [library
  [lux (.except)
   ["_" test (.only Test)]
   [abstract
    [monad (.only do)]
    [\\specification
     ["$[0]" equivalence]]]
   [control
    ["[0]" maybe]
    ["[0]" try (.open: "[1]#[0]" functor)]
    [parser
     ["[0]" environment]
     ["<[0]>" xml]]
    [concurrency
     ["[0]" async]]]
   [data
    ["[0]" text (.open: "[1]#[0]" equivalence)]
    [collection
     ["[0]" list]]]
   [macro
    ["[0]" code]]
   [math
    ["[0]" random (.only Random)]
    [number
     ["n" nat]]]
   ["[0]" time (.only)
    ["[0]" date]
    ["[0]" year]
    ["[0]" month]
    ["[0]" instant]
    ["[0]" duration]]
   [world
    ["[0]" file]
    ["[0]" program]]]]
 [\\program
  ["[0]" / (.only)
   ["/[1]" // (.only)
    ["/[1]" //
     ["[1][0]" artifact]
     ["[1][0]" repository
      ["[1]/[0]" local]]]]]])

(def: .public random
  (Random /.Metadata)
  (all random.and
       (random.alphabetic 5)
       (random.alphabetic 5)
       (random.list 5 (random.alphabetic 5))
       (do [! random.monad]
         [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
          month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat)
          day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat)
          hour (at ! each (n.% 24) random.nat)
          minute (at ! each (n.% 60) random.nat)
          second (at ! each (n.% 60) random.nat)]
         (in (try.trusted
              (do try.monad
                [year (year.year year)
                 month (month.by_number month)
                 date (date.date year month day_of_month)
                 time (time.time
                       [time.#hour hour
                        time.#minute minute
                        time.#second second
                        time.#milli_second 0])]
                (in (instant.of_date_time date time))))))))

(def: .public test
  Test
  (<| (_.covering /._)
      (_.for [/.Metadata])
      (do random.monad
        [expected ..random
         .let [artifact [///artifact.#group (the /.#group expected)
                         ///artifact.#name (the /.#name expected)
                         ///artifact.#version (|> expected
                                                  (the /.#versions)
                                                  list.head
                                                  (maybe.else ""))]]]
        (all _.and
             (_.for [/.equivalence]
                    ($equivalence.spec /.equivalence ..random))
             
             (do random.monad
               [expected ..random]
               (_.coverage [/.format /.parser]
                 (|> expected
                     /.format
                     list
                     (<xml>.result /.parser)
                     (try#each (at /.equivalence = expected))
                     (try.else false))))
             (_.coverage [/.uri]
               (text#= (//.remote_project_uri artifact)
                       (/.uri artifact)))
             (do random.monad
               [home (random.lower_case 5)
                working_directory (random.lower_case 5)
                .let [program (program.async (program.mock environment.empty home working_directory))
                      fs (file.mock (at file.default separator))
                      repository (///repository/local.repository program fs)]]
               (in (do async.monad
                     [wrote? (/.write repository artifact expected)
                      actual (/.read repository artifact)]
                     (_.coverage' [/.write /.read]
                       (and (case wrote?
                              {try.#Success _} true
                              {try.#Failure _} false)
                            (case actual
                              {try.#Success actual}
                              (at /.equivalence = expected actual)
                              
                              {try.#Failure _}
                              false))))))
             ))))