diff options
Diffstat (limited to 'tests/token-endpoint-issue.scm')
| -rw-r--r-- | tests/token-endpoint-issue.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm index 757e650..6d1cda6 100644 --- a/tests/token-endpoint-issue.scm +++ b/tests/token-endpoint-issue.scm @@ -42,7 +42,7 @@ "token-endpoint-issue" (lambda () (define key (generate-key #:n-size 2048)) - (call-with-output-file "key-file.jwk" + (call-with-output-file (string-append (p:data-home) "/key-file.jwk") (lambda (port) (stubs:scm->json (key->jwk key) @@ -55,7 +55,7 @@ (define endpoint (make <token-endpoint> #:issuer "https://issuer.token-endpoint-issue.scm" - #:key-file "key-file.jwk")) + #:key-file (string-append (p:data-home) "/key-file.jwk"))) (define authz (parameterize ((p:current-date 0)) (issue <authorization-code> |