;; 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/>.

(use-modules (webid-oidc provider-confirmation)
             (webid-oidc testing)
             ((webid-oidc parameters) #:prefix p:)
             (web uri)
             (srfi srfi-19)
             (web response)
             (ice-9 optargs)
             (ice-9 receive))

(with-test-environment
 "provider-confirmation"
 (lambda ()
   (define what-uri-to-expect
     (string->uri "https://provider-confirmation.scm/id#webid"))
   (define what-headers-to-expect
     '((accept (text/turtle application/n-quads application/ld+json))))
   (define what-to-respond
     (build-response #:headers '((content-type text/turtle))))
   (define what-to-respond-body
     "@prefix solid: <http://www.w3.org/ns/solid/terms#> .

<#webid> solid:oidcIssuer <https://other-provider.provider-confirmation.scm>, <http://unsecure.provider> .
")
   (define* (http-get uri #:key (headers '()))
     (unless (equal? uri what-uri-to-expect)
       (exit 1))
     (unless (equal? headers what-headers-to-expect)
       (exit 2))
     (values what-to-respond what-to-respond-body))
   (define cnf
     (parameterize
         ((p:anonymous-http-request http-get))
       (get-provider-confirmations
        (string->uri "https://provider-confirmation.scm/id#webid"))))
   (unless (eq? (length cnf) 2)
     (format (current-error-port) "~s\n" cnf)
     (exit 3))
   (unless (string=? (uri->string (car cnf))
                     "https://provider-confirmation.scm")
     (exit 4))
   (unless (string=? (uri->string (cadr cnf))
                     "https://other-provider.provider-confirmation.scm")
     (exit 5))))