;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020, 2021 Marius Bakke ;;; Copyright © 2020 Brice Waegeneire ;;; Copyright © 2023 Bruno Victal ;;; ;;; 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 . (define-module (gnu tests ganeti) #:use-module (gnu) #:use-module (gnu tests) #:use-module (gnu
aboutsummaryrefslogtreecommitdiff
blob: 7e4d82c3a5e08ca05697c479132a9922626a5e0c (about) (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
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; 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/>.

;; GNU Guix development manifest.  To create development environment, run
;;
;;     guix shell
;;
;; or something like
;;
;;     guix shell --pure -m manifest.scm hello ...

(concatenate-manifests
 (list (package->development-manifest (specification->package "guix"))
       ;; Extra packages used by unit tests.
       (specifications->manifest (list "gnupg"))

       ;; Useful extras for patches submission.
       (specifications->manifest
        (list "b4"
              "git"
              "git:send-email"
              "mumi"
              "nss-certs"
              "openssl"              ;required if using 'smtpEncryption = tls'
              "patman"))))
g-append "--master-netdev=" #$master-netdev) ;; TODO: Enable more disk backends. "--enabled-disk-templates=file" (string-append "--enabled-hypervisors=" #$hypervisor) (string-append "--hypervisor-parameters=" #$hypervisor ":" (string-join '#$hvparams "\n")) ;; Set the default NIC mode to 'routed' to avoid having to ;; configure a full bridge to placate 'gnt-cluster verify'. "--nic-parameters=mode=routed,link=eth0" "ganeti.example.com")) marionette)) ;; Disable the watcher while doing daemon tests to prevent interference. (test-eq "watcher pause" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/sbin/gnt-cluster") "watcher" "pause" "1h")) marionette)) (test-assert "force-start wconfd" ;; Check that the 'force-start' Shepherd action works, used in a ;; master-failover scenario. (marionette-eval '(begin (setenv "PATH" "/run/current-system/profile/bin") (and (zero? (system* "herd" "stop" "ganeti-wconfd")) (zero? (system* "herd" "disable" "ganeti-wconfd")) (zero? (system* "herd" "force-start" "ganeti-wconfd")))) marionette)) ;; Verify that the cluster is healthy. (test-eq "gnt-cluster verify 1" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/sbin/gnt-cluster") "verify")) marionette)) ;; Try stopping and starting daemons with daemon-util like ;; 'gnt-node add', 'gnt-cluster init', etc. (test-eq "daemon-util stop-all" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/lib/ganeti/daemon-util") "stop-all")) marionette)) (test-eq "daemon-util start-all" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/lib/ganeti/daemon-util") "start-all")) marionette)) ;; Check that the cluster is still healthy after the daemon restarts. (test-eq "gnt-cluster verify 2" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/sbin/gnt-cluster") "verify")) marionette)) (test-eq "watcher continue" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/sbin/gnt-cluster") "watcher" "continue")) marionette)) ;; Try accessing the RAPI. (test-equal "http-get RAPI version" '(200 "2\n") (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/version" %forwarded-rapi-port) #:decode-body? #f))) (list (response-code response) ;; The API response lacks a content-type, so ;; (http-client) won't decode it for us. (bytevector->string text "UTF-8")))) (test-equal "gnt-os list" "debootstrap+default\nguix+default\n" (marionette-eval '(begin (use-modules (ice-9 popen) (ice-9 textual-ports)) (let* ((port (open-pipe* OPEN_READ #$(file-append ganeti "/sbin/gnt-os") "list" "--no-headers")) (output (get-string-all port))) (close-pipe port) output)) marionette)) (test-eq "gnt-cluster destroy" 0 (marionette-eval '(begin (system* #$(file-append ganeti "/sbin/gnt-cluster") "destroy" "--yes-do-it")) marionette)) (test-end)))) (gexp->derivation (string-append "ganeti-" hypervisor "-test") test)) (define %test-ganeti-kvm (system-test (name "ganeti-kvm") (description "Provision a Ganeti cluster using the KVM hypervisor.") (value (run-ganeti-test "kvm" ;; Set kernel_path to an empty string to prevent ;; 'gnt-cluster verify' from testing for its presence. #:hvparams '("kernel_path=") #:extra-packages (list qemu))))) (define %test-ganeti-lxc (system-test (name "ganeti-lxc") (description "Provision a Ganeti cluster using LXC as the hypervisor.") (value (run-ganeti-test "lxc" #:extra-packages (list lxc)))))