diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-06 14:35:38 +0100 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-06 14:35:38 +0100 |
| commit | 5ae1abc75b463a463dfc764900c79f44d6d953bf (patch) | |
| tree | e76b330fe351897af2d438ed631f03db5f8d52de /tests/token-endpoint-issue.scm | |
| parent | 3475446a3897bede373458574f7db60a73e3e3e9 (diff) | |
Tests: use a key file for each test
Having a global key file leads to reproducibility problems and
intermittent build failures.
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> |