projects/guix·blob sysadmin-team · refs

102 lines · 3.6 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2019 Maxim Cournoyer <[email protected]>
3;;;
4;;; This file is part of GNU Guix.
5;;;
6;;; GNU Guix is free software; you can redistribute it and/or modify it
7;;; under the terms of the GNU General Public License as published by
8;;; the Free Software Foundation; either version 3 of the License, or (at
9;;; your option) any later version.
10;;;
11;;; GNU Guix is distributed in the hope that it will be useful, but
12;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14;;; GNU General Public License for more details.
15;;;
16;;; You should have received a copy of the GNU General Public License
17;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
18
19(define-module (tests networking)
20 #:use-module (ice-9 regex)
21 #:use-module (gnu services networking)
22 #:use-module (srfi srfi-64))
23
24;;; Tests for the (gnu services networking) module.
25
26(test-begin "networking")
27
28
29;;;
30;;; NTP.
31;;;
32
33(define ntp-server->string (@@ (gnu services networking) ntp-server->string))
34
35(define %ntp-server-sample
36 (ntp-server
37 (type 'server)
38 (address "some.ntp.server.org")
39 ;; Using either strings or symbols for option names is accepted.
40 (options `("iburst" (version 3) (maxpoll 16) prefer))))
41
42(test-equal "ntp-server->string"
43 "server some.ntp.server.org iburst version 3 maxpoll 16 prefer"
44 (ntp-server->string %ntp-server-sample))
45
46
47;;;
48;;; OpenNTPD
49;;;
50
51(define openntpd-configuration->string (@@ (gnu services networking)
52 openntpd-configuration->string))
53
54(define %openntpd-conf-sample
55 (openntpd-configuration
56 (server '("0.guix.pool.ntp.org" "1.guix.pool.ntp.org"))
57 (listen-on '("127.0.0.1" "::1"))
58 (sensor '("udcf0 correction 70000"))
59 (constraint-from '("www.gnu.org"))
60 (constraints-from '("https://www.google.com/"))))
61
62(test-assert "openntpd configuration generation sanity check"
63
64 (begin
65 (define (string-match/newline pattern text)
66 (regexp-exec (make-regexp pattern regexp/newline) text))
67
68 (define (match-count pattern text)
69 (fold-matches (make-regexp pattern regexp/newline) text 0
70 (lambda (match count)
71 (1+ count))))
72
73 (let ((config (openntpd-configuration->string %openntpd-conf-sample)))
74 (if (not
75 (and (string-match/newline "^listen on 127.0.0.1$" config)
76 (string-match/newline "^listen on ::1$" config)
77 (string-match/newline "^sensor udcf0 correction 70000$" config)
78 (string-match/newline "^constraint from www.gnu.org$" config)
79 (string-match/newline "^server 0.guix.pool.ntp.org$" config)
80 (string-match/newline
81 "^constraints from \"https://www.google.com/\"$"
82 config)
83
84 ;; Check for issue #3731 (see:
85 ;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=37318).
86 (= (match-count "^listen on " config) 2)
87 (= (match-count "^sensor " config) 1)
88 (= (match-count "^constraint from " config) 1)
89 (= (match-count "^server " config) 2)
90 (= (match-count "^constraints from " config) 1)))
91 (begin
92 (format #t "The configuration below failed \
93the sanity check:\n~a~%" config)
94 #f)
95 #t))))
96
97(test-equal "openntpd generated config string ends with a newline"
98 "\n"
99 (let ((config (openntpd-configuration->string %openntpd-conf-sample)))
100 (string-take-right config 1)))
101
102(test-end "networking")