diff options
author | EuAndreh <eu@euandre.org> | 2024-08-18 10:47:13 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2024-08-18 10:56:28 -0300 |
commit | e83187bddad65509b3f3d5fa43524f615d36f7d1 (patch) | |
tree | 52d5f8c63d552cdbb5290d5c6e7f6b52b24139b3 /tests/internet | |
parent | services.scm: Add "options", "listen-socket" and "upstream-socket" fields (diff) | |
download | packages-e83187bddad65509b3f3d5fa43524f615d36f7d1.tar.gz packages-e83187bddad65509b3f3d5fa43524f615d36f7d1.tar.xz |
cat src/org/euandre/services.scm >> src/org/euandre/packages.scm
Diffstat (limited to 'tests/internet')
-rw-r--r-- | tests/internet/system.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tests/internet/system.scm b/tests/internet/system.scm index c0e5986..84471d2 100644 --- a/tests/internet/system.scm +++ b/tests/internet/system.scm @@ -1,6 +1,6 @@ (use-modules ((org euandre queue) #:prefix q:) - ((org euandre services) #:prefix serv:) + ((org euandre packages) #:prefix pkg:) (gnu)) (use-package-modules) (use-service-modules @@ -12,7 +12,7 @@ ssh) (define (path s) - (serv:str (dirname (dirname (dirname (current-filename)))) "/" s)) + (pkg:str (dirname (dirname (dirname (current-filename)))) "/" s)) (define +users+ `(("user1" "I'm a user" ()) @@ -20,30 +20,30 @@ (operating-system (host-name "a-internet-test-host") - (skeletons serv:skeletons) - (users (append (serv:user-accounts +users+) %base-user-accounts)) + (skeletons pkg:skeletons) + (users (append (pkg:user-accounts +users+) %base-user-accounts)) (services (append (list (service ntp-service-type) (service dhcp-client-service-type) (service fail2ban-service-type) - (service serv:binder-service-type) - (service serv:glaze-service-type) - (service serv:untls-service-type) - (service serv:wscat-service-type) - (service serv:papod-service-type) - (service openssh-service-type (q:openssh-default-configuration (serv:users->keys +users+))) + (service pkg:binder-service-type) + (service pkg:glaze-service-type) + (service pkg:untls-service-type) + (service pkg:wscat-service-type) + (service pkg:papod-service-type) + (service openssh-service-type (q:openssh-default-configuration (pkg:users->keys +users+))) (service certbot-service-type (q:tld-certbot-configuration "tld.local")) (service cgit-service-type q:cgit-pre-configuration) - (service serv:syskeep-service-type) + (service pkg:syskeep-service-type) (service q:shadow-group-service-type) (service q:dkimproxyout-service-type) (service q:cyrus-sasl-service-type) (service q:dovecot-service-type) (service q:internet-postfix-service-type) (service mail-aliases-service-type '())) - serv:base-services)) + pkg:base-services)) (bootloader (bootloader-configuration (bootloader grub-bootloader))) |