;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Maxim Cournoyer ;;; ;;; 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 (tests services vpn) #:use-module (gnu packages vpn) #:use-module (gnu services vpn) #:use-module (guix gexp) #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (srfi srfi-64)) ;;; Commentary: ;;; ;;; Unit tests for the (gnu services vpn) module. ;;; ;;; Code: ;;; Access some internals for whitebox testing. (define ipv4-address? (@@ (gnu services vpn) ipv4-address?)) (define ipv6-address? (@@ (gnu services vpn) ipv6-address?)) (define host-name? (@@ (gnu services vpn) host-name?)) (define endpoint-host-names (@@ (gnu services vpn) endpoint-host-names)) (test-begin "vpn-services") (test-assert "ipv4-address?" (every ipv4-address? (list "192.95.5.67:1234" "10.0.0.1"))) (test-assert "ipv6-address?" (every ipv6-address? (list "[2001:db8::c05f:543]:2468" "2001:db8::c05f:543" "2001:db8:855b:0000:0000:0567:5673:23b5" "2001:db8:855b::0567:5673:23b5"))) (define %wireguard-peers (list (wireguard-peer (name "dummy1") (public-key "VlesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XjoalC8=") (endpoint "some.dynamic-dns.service:53281") (allowed-ips '())) (wireguard-peer (name "dummy2") (public-key "AlesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XgoalC9=") (endpoint "example.org") (allowed-ips '())) (wireguard-peer (name "dummy3") (public-key "BlesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XgoalC7=") (endpoint "10.0.0.7:7777") (allowed-ips '())) (wireguard-peer (name "dummy4") (public-key "ClesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XgoalC6=") (endpoint "[2345:0425:2CA1::0567:5673:23b5]:44444") (allowed-ips '())))) (test-equal "endpoint-host-names" ;; The first element of the pair the public Wireguard key associated to a ;; host name. '(("VlesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XjoalC8=" . "some.dynamic-dns.service:53281") ("AlesLiEB5BFd//OD2ILKXviolfz+hodG6uZ+XgoalC9=" . "example.org")) (endpoint-host-names %wireguard-peers)) (test-end "vpn-services") '/guix/commit/gnu/home/services/fontutils.scm?id=3c149de46199aa67407e2f365485361f0bb686e4'>home: Migrate fountutils and xdg modules to xdg-configuration-files....* gnu/home/services/fontutils.scm (home-fontconfig-service-type): Migrate to xdg-configuration-files. * gnu/home/services/xdg.scm (home-xdg-user-directories-service-type, home-xdg-mime-applications-service-type): Migrate to xdg-configuration-files. Signed-off-by: Ludovic Courtès <ludo@gnu.org> Andrew Tropin 2021-10-09Move (gnu home-services) to (gnu home services)....* gnu/home-services.scm (%guix-home-root-directory): Replace gnu/home-services.scm with "gnu/home/services.scm". Rename to gnu/home/services.scm. * gnu/local.mk (GNU_SYSTEM_MODULES): Rename gnu/home-services.scm to gnu/home/services.scm. * doc/he-config-bare-bones.scm: Replace (gnu home-services) with (gnu home services). * gnu/home.scm: Same. * gnu/home/services/fontutils.scm: Same. * gnu/home/services/mcron.scm: Same. * gnu/home/services/shells.scm: Same. * gnu/home/services/shepherd.scm: Same. * gnu/home/services/symlink-manager.scm: Same. * gnu/home/services/xdg.scm: Same. * guix/scripts/home.scm: Same. * guix/self.scm: Same. Oleg Pykhalov 2021-10-08gnu: Move (gnu home-services) to (gnu home services)....* gnu/home-services/configuration.scm: Move the content ... * gnu/home/services/configuration.scm: ... here. * doc/guix.texi: Replace (gnu home-services mcron) with (gnu home services mcron). Replace (gnu home-services) with (gnu home services). * gnu/home.scm: Replace (gnu home-services fontutils) with (gnu services fontutils). Replace (gnu home-services shells) with (gnu home services shells). Replace (gnu home-services symlink-manager) with (gnu home services symlink-manager). Replace (gnu home-services xdg) with (gnu home services xdg). * gnu/home-services/fontutils.scm: Rename to gnu/services/fontutils.scm. * gnu/home-services/mcron.scm: Move to gnu/home/services/mcron.scm. Replace (gnu home-services shepherd) with (gnu home services shepherd). * gnu/home-services.scm (%service-type-path): Search home services in "gnu/services". * gnu/home-services/shells.scm: Replace (gnu home-services configuration) with (gnu home services configuration). Rename to gnu/home/services/shells.scm. Replace (gnu home-services utils) with (gnu home services utils). * gnu/home-services/shepherd.scm: Move to gnu/home/services/shepherd.scm. * gnu/home-services/symlink-manager.scm: Rename to gnu/home/services/symlink-manager.scm. * gnu/home-services/utils.scm: Rename to gnu/home/services/utils.scm. * gnu/home-services/xdg.scm: Rename to gnu/home/services/xdg.scm. * guix/scripts/home/import.scm: Replace (gnu home-services bash) with (gnu home services bash). * gnu/home-services.scm: Update documentation string. * doc/he-config-bare-bones.scm: Apply new (gnu home-services ...) modules location. * gnu/local.mk (GNU_SYSTEM_MODULES): Same. Oleg Pykhalov