From 34624c72245b483e645efd281a27c9c9e210a19a Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 14 Oct 2021 11:36:14 +0200
Subject: server: add an identity provider endpoint

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

(limited to 'tests/token-endpoint-issue.scm')

diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm
index 8fdd1ad..f986e8e 100644
--- a/tests/token-endpoint-issue.scm
+++ b/tests/token-endpoint-issue.scm
@@ -36,6 +36,12 @@
  "token-endpoint-issue"
  (lambda ()
    (define key (generate-key #:n-size 2048))
+   (call-with-output-file "key-file.jwk"
+     (lambda (port)
+       (stubs:scm->json
+        (key->jwk key)
+        port
+        #:pretty #t)))
    (define client-key (generate-key #:n-size 2048))
    (define subject (string->uri "https://token-endpoint-issue.scm/profile/card#me"))
    (define client (string->uri "https://token-endpoint-issue.scm/client/card#app"))
@@ -49,7 +55,7 @@
    (define endpoint
      (make-token-endpoint
       (string->uri "https://token-endpoint-issue.scm/token")
-      issuer key))
+      issuer "key-file.jwk"))
    (receive (response response-body . _)
        ;; The code is fake!
        (let ((dpop
@@ -90,7 +96,6 @@
                              #:port #t)
               (string-append "grant_type=authorization_code&code=" authz))))
        (unless (eq? (response-code response) 200)
-         (write response)
          (exit 4))
        (unless (eq? (car (response-content-type response)) 'application/json)
          (exit 5))
-- 
cgit v1.2.3