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-19 15:44:24 +0200
commit2fc254c809e42029f28982404870604633b35521 (patch)
tree7d7d32a3e7560bb165fe1ea2f6f96ad82a7e3f4a /tests/hash-ok.scm
parent6bc2ce4c55af6d3f3af7be494c149cbe33d6e08e (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)))))