diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 23:19:53 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 23:19:53 +0200 |
commit | ace7426f70bb793d64f8deaf499ec4146f92ba1b (patch) | |
tree | 3aa64be3e5e14abeac37466256b6fc57554f14f1 /vkraus/systems | |
parent | b2d30273eeda853264391f5386c48582beb81369 (diff) |
Update package
Diffstat (limited to 'vkraus/systems')
-rw-r--r-- | vkraus/systems/test.scm | 81 |
1 files changed, 81 insertions, 0 deletions
diff --git a/vkraus/systems/test.scm b/vkraus/systems/test.scm new file mode 100644 index 0000000..9c29e8f --- /dev/null +++ b/vkraus/systems/test.scm @@ -0,0 +1,81 @@ +;; disfluid, implementation of the Solid specification +;; Copyright (C) 2021 Vivien Kraus + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU Affero General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. + +;; This program 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 Affero General Public License for more details. + +;; You should have received a copy of the GNU Affero General Public License +;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +(define-module (vkraus systems test) + #:use-module (gnu) + #:use-module (guix gexp) + #:use-module (vkraus services disfluid)) + +(operating-system + (host-name "disfluid-test-system") + (hosts-file + (plain-file "hosts" + "127.0.0.1 localhost +::1 localhost +")) + (users %base-user-accounts) + (packages %base-packages) + (services + (append + (list + (service disfluid-service-type + `(("alice" + . ,(disfluid-server-configuration + (complete-corresponding-source "https://webid-oidc.planete-kraus.eu/complete-corresponding-source.tar.gz") + (server-name "http://localhost:8081") + (subject "http://localhost:8081/alice#me") + (encrypted-password-file + (computed-file "alice-password" + #~(let ((salt "$6$.salt.for.Alice.") + (password "alice")) + (call-with-output-file #$output + (lambda (port) + (format port "~a\n" + (crypt password salt))))))) + (jwks-uri "http://localhost:8081/keys") + (authorization-endpoint-uri "http://localhost:8081/authorize") + (token-endpoint-uri "http://localhost:8081/token") + (port 8081))) + ("bob" + . ,(disfluid-server-configuration + (complete-corresponding-source "https://webid-oidc.planete-kraus.eu/complete-corresponding-source.tar.gz") + (server-name "http://localhost:8082") + (subject "http://localhost:8082/bob#me") + (encrypted-password-file + (computed-file "bob-password" + #~(let ((salt "$6$And.salt.for.Bob") + (password "bob")) + (call-with-output-file #$output + (lambda (port) + (format port "~a\n" + (crypt password salt))))))) + (jwks-uri "http://localhost:8082/keys") + (authorization-endpoint-uri "http://localhost:8082/authorize") + (token-endpoint-uri "http://localhost:8082/token") + (port 8082)))))) + %base-services)) + (timezone "Europe/Paris") + (bootloader + (bootloader-configuration + (bootloader grub-efi-bootloader) + (target "/boot/efi"))) + (mapped-devices '()) + (file-systems + `(,(file-system + (mount-point "/") + (device "/dev/sda") + (type "ext4")) + ,@%base-file-systems))) |