tests/hash-ok.scm


1
2
3
4
5
6
7
8
9
10
11

(use-modules
 (webid-oidc testing)
 ((webid-oidc stubs) #:prefix stubs:)
 (rnrs bytevectors))

(with-test-environment
 "hash-ok"
 (lambda ()
   (let ((hashed (stubs:hash 'SHA-256 "hello :)")))
     (unless (string? hashed)
       (exit 1)))))