Use anonymous-http-request from (webid-oidc parameters) everywhere

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> .
-")))