blob: ce3f21de864277d18a40a7609865b579eb28b4a7 (
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
117
|
(.module:
[lux #*
["_" test (#+ Test)]
[abstract
["." monad (#+ do)]]
[control
["." try (#+ Try) ("#\." functor)]
["." exception]
[concurrency
["." promise (#+ Promise)]]
[security
["!" capability]]
[parser
["." environment (#+ Environment)]]]
[data
["." maybe]
["." binary]
["." text ("#\." equivalence)
["%" format (#+ format)]
["." encoding]]
[format
["." xml]]
[collection
["." set (#+ Set)]]]
[math
["." random (#+ Random)]]
[world
["." file (#+ Path File)]
["." program (#+ Program)]
[net
["." uri]]]]
[//
["@." version]
[//
["@." profile]
["@." artifact]]]
{#program
["." /
["/#" // #_
["#." clean]
["/#" // #_
["#" profile]
["#." action]
["#." pom]
["#." local]
["#." artifact
["#/." extension]]
["#." repository #_
["#/." local]]]]]})
(def: (make_sources! fs sources)
(-> (file.System Promise) (Set Path) (Promise (Try Any)))
(loop [sources (set.to_list sources)]
(case sources
#.Nil
(|> []
(\ try.monad wrap)
(\ promise.monad wrap))
(#.Cons head tail)
(do (try.with promise.monad)
[_ (: (Promise (Try Path))
(file.make_directories promise.monad fs head))
_ (: (Promise (Try (File Promise)))
(file.get_file promise.monad fs (format head (\ fs separator) head ".lux")))]
(recur tail)))))
(def: (execute! program fs sample)
(-> (Program Promise) (file.System Promise) ///.Profile (Promise (Try Text)))
(do promise.monad
[home (\ program home [])]
(do ///action.monad
[#let [console (@version.echo "")]
_ (..make_sources! fs (get@ #///.sources sample))
_ (/.do! console fs (///repository/local.repository program fs) sample)]
(!.use (\ console read_line) []))))
(def: #export test
Test
(<| (_.covering /._)
(do {! random.monad}
[identity @artifact.random
sample (\ ! map (set@ #///.identity (#.Some identity))
@profile.random)
home (random.ascii/alpha 5)
working_directory (random.ascii/alpha 5)]
($_ _.and
(wrap (do {! promise.monad}
[#let [fs (file.mock (\ file.default separator))
program (program.async (program.mock environment.empty home working_directory))]
verdict (do ///action.monad
[logging (..execute! program fs sample)
#let [/ uri.separator
artifact_path (format (///local.uri identity) / (///artifact.identity identity))
library_path (format artifact_path ///artifact/extension.lux_library)
pom_path (format artifact_path ///artifact/extension.pom)]
library_exists! (\ promise.monad map
exception.return
(file.file_exists? promise.monad fs library_path))
pom_exists! (\ promise.monad map
exception.return
(file.file_exists? promise.monad fs pom_path))]
(wrap (and (text\= //clean.success logging)
library_exists!
pom_exists!)))]
(_.cover' [/.do!]
(try.default false verdict))))
(wrap (do {! promise.monad}
[#let [fs (file.mock (\ file.default separator))
program (program.async (program.mock environment.empty home working_directory))]
logging (..execute! program fs (set@ #///.identity #.None sample))]
(_.cover' [/.failure]
(|> logging
(try\map (text\= /.failure))
(try.default false)))))
))))
|
