From 8879c107f3b25cfd51249b75a73cea608a1bf143 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Tue, 15 Jun 2021 19:02:39 +0200
Subject: Implement WAC

---
 tests/acl-with-group.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tests/acl-with-group.scm

(limited to 'tests/acl-with-group.scm')

diff --git a/tests/acl-with-group.scm b/tests/acl-with-group.scm
new file mode 100644
index 0000000..210cc21
--- /dev/null
+++ b/tests/acl-with-group.scm
@@ -0,0 +1,11 @@
+(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> .
+")))
-- 
cgit v1.2.3