diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-01-01 00:00:00 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-18 15:43:46 +0200 |
commit | 8a71b9e05da3df3e2a48d8ac22cf5d772f151211 (patch) | |
tree | 4cd298f941d97f135482a99e86280b82ea511760 /tests | |
parent | 5f94745a1eb4e836199caff8fa372d0a023b8339 (diff) |
Add a hash function
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Makefile.am | 4 | ||||
-rw-r--r-- | tests/hash-ok.scm | 11 | ||||
-rw-r--r-- | tests/hash-unsupported.scm | 21 |
3 files changed, 35 insertions, 1 deletions
diff --git a/tests/Makefile.am b/tests/Makefile.am index 8713516..94a8b5b 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))) |