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)))))