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
|
(ns puppetlabs.trapperkeeper.testutils.bootstrap
(:require [me.raynes.fs :as fs]
[puppetlabs.trapperkeeper.core :as tk]
[puppetlabs.trapperkeeper.app :as tk-app]
[puppetlabs.kitchensink.testutils :as ks-testutils]
[puppetlabs.trapperkeeper.bootstrap :as bootstrap]
[puppetlabs.trapperkeeper.config :as config]
[puppetlabs.trapperkeeper.internal :as internal]))
(def empty-config "./target/empty.ini")
(fs/touch empty-config)
(defn bootstrap-services-with-config
[services config]
(internal/throw-app-error-if-exists!
(tk/boot-services-with-config services config)))
(defmacro with-app-with-config
[app services config & body]
`(ks-testutils/with-no-jvm-shutdown-hooks
(let [~app (bootstrap-services-with-config ~services ~config)]
(try
~@body
(finally
(tk-app/stop ~app true))))))
(defn bootstrap-services-with-cli-data
[services cli-data]
(internal/throw-app-error-if-exists!
(tk/boot-services-with-config-fn services
#(config/parse-config-data cli-data))))
(defmacro with-app-with-cli-data
[app services cli-data & body]
`(ks-testutils/with-no-jvm-shutdown-hooks
(let [~app (bootstrap-services-with-cli-data ~services ~cli-data)]
(try
~@body
(finally
(tk-app/stop ~app true))))))
(defn bootstrap-services-with-cli-args
[services cli-args]
(bootstrap-services-with-cli-data services
(internal/parse-cli-args! cli-args)))
(defmacro with-app-with-cli-args
[app services cli-args & body]
`(ks-testutils/with-no-jvm-shutdown-hooks
(let [~app (bootstrap-services-with-cli-args ~services ~cli-args)]
(try
~@body
(finally
(tk-app/stop ~app true))))))
(defn bootstrap-services-with-empty-config
[services]
(bootstrap-services-with-cli-data services {:config empty-config}))
(defmacro with-app-with-empty-config
[app services & body]
`(ks-testutils/with-no-jvm-shutdown-hooks
(let [~app (bootstrap-services-with-empty-config ~services)]
(try
~@body
(finally
(tk-app/stop ~app true))))))
(defn bootstrap-with-empty-config
([]
(bootstrap-with-empty-config []))
([other-args]
(-> other-args
(conj "--config" empty-config)
(internal/parse-cli-args!)
(tk/boot-with-cli-data)
(internal/throw-app-error-if-exists!))))
(defn parse-and-bootstrap
([bootstrap-config]
(parse-and-bootstrap bootstrap-config {:config empty-config}))
([bootstrap-config cli-data]
(-> bootstrap-config
(bootstrap/parse-bootstrap-config!)
(bootstrap-services-with-cli-data cli-data))))
|
