diff options
Diffstat (limited to 'tests/acl-with-group.scm')
-rw-r--r-- | tests/acl-with-group.scm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/tests/acl-with-group.scm b/tests/acl-with-group.scm deleted file mode 100644 index 3e715d9..0000000 --- a/tests/acl-with-group.scm +++ /dev/null @@ -1,27 +0,0 @@ -;; webid-oidc, implementation of the Solid specification -;; Copyright (C) 2020, 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 (http-get uri) - (unless (equal? uri - (string->uri "https://group-server.example.com/the#group")) - (exit 1) - (values - (build-response #:headers '((content-type text/turtle))) - "@prefix vcard: <http://www.w3.org/2006/vcard/ns#>. - -<#group> a vcard:Group; - vcard:hasMember <https://other-user.example.com/profile/card#me> . -"))) |