(use-modules ((webid-oidc server resource) #:prefix resource:)
             (webid-oidc testing)
             (webid-oidc errors)
             (web uri)
             (ice-9 optargs)
             (ice-9 receive)
             (oop goops))

(define <resource:t> resource:<t>)
(define <resource:explicit-acl> resource:<explicit-acl>)

(with-test-environment
 "server-create-resource"
 (lambda ()
   (with-exception-handler
       (lambda (error)
         #t)
     (lambda ()
       (resource:delete "/a/b/c"))
     #:unwind? #t)
   (let ((base-resource
          (make <resource:t>
            #:path "/a/b/c"
            #:etag "abc"
            #:acl (make <resource:explicit-acl>
                    #:allowed-users (list (string->uri "https://example.user/card#me"))
                    #:allowed-groups (list (string->relative-ref "/other-people#them"))
                    #:public? #f)
            #:content-type 'application/json
            #:content "{\"hello\": \"world\"}"
            #:metadata "<> <> <> ."
            #:contained #f)))
     (resource:save base-resource #:if-none-match '*))))