From 6cbe572b7e5d2e1357a10f0dff94b561129f34c6 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Sun, 27 Jun 2021 15:56:20 +0200
Subject: Add a function to delete a resource as with DELETE

---
 tests/crud.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/crud.scm b/tests/crud.scm
index 6524cfd..6eb1bfe 100644
--- a/tests/crud.scm
+++ b/tests/crud.scm
@@ -1,6 +1,7 @@
 (use-modules (webid-oidc server create)
              (webid-oidc server read)
              (webid-oidc server update)
+             (webid-oidc server delete)
              (webid-oidc server resource content)
              (webid-oidc server resource path)
              (webid-oidc errors)
@@ -38,7 +39,9 @@
       "5/KVojpXDg0Aob3_v"
       "S/9kvZXAg1UQojIal"
       "B/JadnRZKhcTKHHZU"
-      "_/VhVgLvE4J9JwpIP"))
+      "_/VhVgLvE4J9JwpIP"
+      "l/ljOph3RCCWJJW5K"
+      "o/UmwpeCFbPoc9PCL"))
    (for-each
     (lambda (f)
       (false-if-exception
@@ -239,5 +242,7 @@
          (when (bytevector? content)
            (set! content (utf8->string content)))
          (when (equal? content exact-content)
-           (exit 25)))))))
+           (exit 25))))
+     (delete server-name owner owner "/inbox/test-notifications/welcome" #f #f)
+     (delete server-name owner owner "/inbox/test-notifications" #f #f))))
             
-- 
cgit v1.2.3