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
118
119
120
121
122
123
124
125
126
127
128
129
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (tests services configuration generic-ini)
#:use-module (gnu services configuration)
#:use-module (gnu services configuration generic-ini)
#:use-module (guix diagnostics)
#:use-module (guix gexp)
#:use-module (guix store)
#:autoload (guix i18n) (G_)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-64)
#:use-module (srfi srfi-71))
;;; Tests for the (gnu services configuration generic-ini) module.
(test-begin "generic-ini serializer")
(define expected-output "\
[guardians]
llamas=Tommy,Isabella
donkeys=Franz,Olly
[ranch]
shepherd=Emma
[shed]
colours=Alizarin
enabled=true
capacity=50
production=wool
[vehicles]
cars=313
bikes=Amaryllis
")
\f
;;;
;;; Serializers
;;;
(define (strip-trailing-?-character field-name)
"Drop rightmost '?' character"
(let ((str (symbol->string field-name)))
(if (string-suffix? "?" str)
(string->symbol (string-drop-right str 1))
field-name)))
(define* (serialize-string field-name value #:key section)
(list section field-name value))
(define* (serialize-number field-name value #:key section)
(list section field-name (number->string value)))
(define* (serialize-boolean field-name value #:key section)
(list section (strip-trailing-?-character field-name)
(if value "true" "false")))
(define serialize-ini-entry
generic-ini-serialize-ini-entry)
(define serialize-list-of-ini-entries
generic-ini-serialize-list-of-ini-entries)
\f
;;;
;;; Record-type definition
;;;
(define-configuration foo-configuration
(production
(string "wool")
"Lorem Ipsum …"
(serializer-options '(#:section shed)))
(capacity
(number 50)
"Lorem Ipsum …"
(serializer-options '(#:section shed)))
(enabled?
(boolean #t)
"Lorem Ipsum …"
(serializer-options '(#:section shed)))
(shepherd
(string "Emma")
"Lorem Ipsum …"
(serializer-options '(#:section ranch)))
(raw-entry
(ini-entry '(shed colours "Alizarin"))
"Lorem Ipsum …")
(escape-hatch
(list-of-ini-entries '((vehicles bikes "Amaryllis")
(vehicles cars "313")
(guardians donkeys "Franz,Olly")
(guardians llamas "Tommy,Isabella")))
"Lorem Ipsum …"))
(test-equal "Well-formed INI output from serialize-ini"
expected-output
;; Serialize the above into a string, properly resolving any potential
;; nested G-Exps as well.
(let* ((serialized-ini
(serialize-ini-configuration (foo-configuration)
foo-configuration-fields))
(lowered conn (with-store store
((lower-gexp serialized-ini) store))))
(eval (lowered-gexp-sexp lowered) (current-module))))
(test-end)
|