1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(in-package :consfigurator/tests)
(named-readtables:in-readtable :consfigurator)
(in-consfig "consfigurator/tests")
(defun populate-data-pgp ()
"Invoked by test runner before data source is registered."
(data.pgp:set-data *test-pgp-file* "_secrets" "test" "this is a sekrit")
(data.pgp:set-data *test-pgp-file* "host.example.com" "/etc/foo.conf"
"secret file content"))
(deftest data.pgp.1
(data.pgp:get-data *test-pgp-file* "_secrets" "test")
"this is a sekrit")
(deftest data.pgp.2
(get-data-string "_secrets" "test")
"this is a sekrit")
(deftest data.pgp.3
(get-data-string "host.example.com" "/etc/foo.conf")
"secret file content")
|
