From 1a5e600b5c0ec3730fd01ec97e81d609f981af45 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Wed, 1 Jan 2020 00:00:00 +0100
Subject: Add a hash function

---
 tests/hash-ok.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tests/hash-ok.scm

(limited to 'tests/hash-ok.scm')

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)))))
-- 
cgit v1.2.3