aboutsummaryrefslogtreecommitdiff
path: root/tests/test/crypto.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/crypto.scm')
-rw-r--r--tests/test/crypto.scm22
1 files changed, 0 insertions, 22 deletions
diff --git a/tests/test/crypto.scm b/tests/test/crypto.scm
deleted file mode 100644
index 0dbf8867..00000000
--- a/tests/test/crypto.scm
+++ /dev/null
@@ -1,22 +0,0 @@
-(define-module (test crypto)
- :use-module (srfi srfi-64)
- :use-module (srfi srfi-64 test-error)
- :use-module (srfi srfi-88)
- :use-module ((crypto) :select (sha256 checksum->string)))
-
-(test-equal "sha256"
- #vu8(24 95 141 179 34 113 254 37 245 97 166 252 147 139 46 38 67 6 236 48 78 218 81 128 7 209 118 72 38 56 25 105)
- (sha256 "Hello"))
-
-(test-equal "sha256 string digest"
- "185f8db32271fe25f561a6fc938b2e264306ec304eda518007d1764826381969"
- (checksum->string (sha256 "Hello")))
-
-(let ((port (open-output-string)))
- (checksum->string (sha256 "Hello") port)
- (test-equal "sha256 string digest to port"
- "185f8db32271fe25f561a6fc938b2e264306ec304eda518007d1764826381969"
- (get-output-string port)))
-
-(test-error 'wrong-type-arg
- (sha256 'something-which-is-not-a-string-or-bytevector))