diff options
Diffstat (limited to 'tests/authorization-endpoint-submit-form.scm')
-rw-r--r-- | tests/authorization-endpoint-submit-form.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/authorization-endpoint-submit-form.scm b/tests/authorization-endpoint-submit-form.scm index de5c76c..5eb90e4 100644 --- a/tests/authorization-endpoint-submit-form.scm +++ b/tests/authorization-endpoint-submit-form.scm @@ -60,7 +60,7 @@ (make <authorization-endpoint> #:subject subject #:encrypted-password encrypted-password - #:key-file "key-file.jwk")) + #:key-file (string-append (p:data-home) "/key-file.jwk"))) (parameterize ((p:anonymous-http-request (lambda* (uri #:key (headers '()) #:allow-other-keys) (unless (equal? uri what-uri-to-expect) @@ -132,7 +132,7 @@ (decode <authorization-code> (car (assoc-ref args "code")) #:issuer-key - (call-with-input-file "key-file.jwk" + (call-with-input-file (string-append (p:data-home) "/key-file.jwk") (lambda (port) (jwk->key (stubs:json->scm port)))))))) (unless parsed |