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-05 16:11:10 +0200
commit1a5e600b5c0ec3730fd01ec97e81d609f981af45 (patch)
treea27e3c29634f690da73194a7086b8bbc4c1f4ce8 /tests/hash-ok.scm
parentf8aefcf31ab49c063578190ee7f4a2721e5dc035 (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)))))