From 5c972d96794c49c20c37fc516c2f8677c855ba5d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 1 Oct 2009 13:48:28 -0500
Subject: [PATCH] check that the length of checksum-lines is correct for md

---
 basis/checksums/md5/md5-tests.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/checksums/md5/md5-tests.factor b/basis/checksums/md5/md5-tests.factor
index 730c0b8516..92f7ef4089 100644
--- a/basis/checksums/md5/md5-tests.factor
+++ b/basis/checksums/md5/md5-tests.factor
@@ -33,3 +33,9 @@ IN: checksums.md5.tests
     <md5-state> "asdf" binary <byte-reader> add-checksum-stream
     [ get-checksum ] [ get-checksum ] bi =
 ] unit-test
+
+[
+    t
+] [
+    { "abcd" "efg" } md5 checksum-lines length 16 =
+] unit-test