From 7dea1c7799b7d57f56bad3f81389d8a150220c82 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 3 Mar 2022 02:32:04 +0100 Subject: Rewrote checksum->string. Lets take full advantage of guile's format. --- tests/test/crypto.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests') 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))) -- cgit v1.2.3