aboutsummaryrefslogtreecommitdiff
path: root/po/packages/oc.po
diff options
context:
space:
mode:
authorzamfofex <zamfofex@twdb.moe>2022-09-23 04:00:59 -0300
committerLudovic Courtès <ludo@gnu.org>2022-09-29 22:59:48 +0200
commit6943f22ee6956bc6c8e57e191dbdf6d9dcd5995e (patch)
tree61c917abc21e1ee29a468175b6973e876051f5e8 /po/packages/oc.po
parent8b2119a5e4793cad1df1070d488a54ceea420840 (diff)
downloadguix-6943f22ee6956bc6c8e57e191dbdf6d9dcd5995e.tar.gz
guix-6943f22ee6956bc6c8e57e191dbdf6d9dcd5995e.zip
gnu: Add lite-xl.
* gnu/packages/text-editors.scm (lite-xl): New variable. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'po/packages/oc.po')
0 files changed, 0 insertions, 0 deletions
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 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")