Add a hash function

3 files changed, 35 insertions, 1 deletions

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 65191b4..cb41e05 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -5,7 +5,9 @@ TESTS = %reldir%/load-library.scm \
   %reldir%/jwk-kty-ec-correct.scm \
   %reldir%/jwk-kty-ec-incorrect.scm \
   %reldir%/jwk-kty-rsa-correct.scm \
-  %reldir%/jwk-kty-rsa-incorrect.scm
+  %reldir%/jwk-kty-rsa-incorrect.scm \
+  %reldir%/hash-ok.scm \
+  %reldir%/hash-unsupported.scm
 
 EXTRA_DIST += $(TESTS)
 
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)))))
diff --git a/tests/hash-unsupported.scm b/tests/hash-unsupported.scm
new file mode 100644
index 0000000..c52959a
--- /dev/null
+++ b/tests/hash-unsupported.scm
@@ -0,0 +1,21 @@
+(use-modules
+ (webid-oidc testing)
+ (webid-oidc errors)
+ ((webid-oidc stubs) #:prefix stubs:)
+ (rnrs bytevectors))
+
+(with-test-environment
+ "hash-unsupported"
+ (lambda ()
+   (with-exception-handler
+       (lambda (error)
+         (unless ((record-predicate &unsupported-alg) error)
+           (exit 1))
+         (let ((value ((record-accessor &unsupported-alg 'value) error)))
+           (unless (eq? value 'SHA-1024)
+             (exit 2))))
+     (lambda ()
+       (stubs:hash 'SHA-1024 "hello :)")
+       (exit 3))
+     #:unwind? #t
+     #:unwind-for-type &unsupported-alg)))