diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-27 15:56:20 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 14:49:13 +0200 |
commit | 6cbe572b7e5d2e1357a10f0dff94b561129f34c6 (patch) | |
tree | a44826cd9bfe4b993348c1f97040c4bc112bcbbd /tests | |
parent | abd89b0c18beb6f6d3224cf661c446cbc61fb443 (diff) |
Add a function to delete a resource as with DELETE
Diffstat (limited to 'tests')
-rw-r--r-- | tests/crud.scm | 9 |
1 files changed, 7 insertions, 2 deletions
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)))) |