check that the length of checksum-lines is correct for md

2009-10-01 13:48:28 -05:00 · 2009-10-01 13:48:28 -05:00 · 5c972d9679
parent be110afe27
commit 5c972d9679
1 changed files with 6 additions and 0 deletions
--- 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