Do not accept the password in clear, use an encrypted password

1 files changed, 2 insertions, 1 deletions

diff --git a/tests/authorization-endpoint-submit-form.scm b/tests/authorization-endpoint-submit-form.scm
index 90de696..f379e38 100644
--- a/tests/authorization-endpoint-submit-form.scm
+++ b/tests/authorization-endpoint-submit-form.scm
@@ -38,6 +38,7 @@
    (define client (string->uri "https://authorization-endpoint-submit-form.scm/client/card#app"))
    (define redirect (string->uri "https://authorization-endpoint-submit-form.scm/client/redirect"))
    (define password "p4ssw0rd")
+   (define encrypted-password (crypt password "$6$this.is.the.salt"))
    (define validity 120)
    (define the-time 0)
    (define (current-time)
@@ -61,7 +62,7 @@
    (define jti-list (make-jti-list))
    (define endpoint
      (make-authorization-endpoint
-      subject password alg key validity
+      subject encrypted-password alg key validity
       #:http-get cached-http-get
       #:current-time current-time))
    (receive (response response-body)