diff options
Diffstat (limited to 'tests/test')
| -rw-r--r-- | tests/test/crypto.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test/crypto.scm b/tests/test/crypto.scm index 610ac819..71ecfc99 100644 --- a/tests/test/crypto.scm +++ b/tests/test/crypto.scm @@ -7,3 +7,9 @@ (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))) |