summaryrefslogtreecommitdiff
path: root/tests/hash-ok.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2020-01-01 00:00:00 +0100
committerVivien Kraus <vivien@planete-kraus.eu>2021-06-18 15:43:46 +0200
commit8a71b9e05da3df3e2a48d8ac22cf5d772f151211 (patch)
tree4cd298f941d97f135482a99e86280b82ea511760 /tests/hash-ok.scm
parent5f94745a1eb4e836199caff8fa372d0a023b8339 (diff)
Add a hash function
Diffstat (limited to 'tests/hash-ok.scm')
-rw-r--r--tests/hash-ok.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/hash-ok.scm b/tests/hash-ok.scm
new file mode 100644
index 0000000..26384f8
--- /dev/null
+++ b/tests/hash-ok.scm
@@ -0,0 +1,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)))))