diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
| commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
| tree | b8505b420d6621022fa6a46271340071d8881322 /tests/test/crypto.scm | |
| parent | Made displayln into a library export. (diff) | |
| download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz | |
Rewrite test running system.
Diffstat (limited to 'tests/test/crypto.scm')
| -rw-r--r-- | tests/test/crypto.scm | 22 |
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)) |