From e4c94e7d989a1b048dda7d8b27a08aac2c5804b7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 23 Mar 2019 07:20:31 -0700 Subject: [PATCH] checksums.multi: fix tests. --- extra/checksums/multi/multi-tests.factor | 26 +++++++++++++----------- 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/extra/checksums/multi/multi-tests.factor b/extra/checksums/multi/multi-tests.factor index 3d3b5f2acc..0a9d2fa755 100644 --- a/extra/checksums/multi/multi-tests.factor +++ b/extra/checksums/multi/multi-tests.factor @@ -4,6 +4,20 @@ USING: byte-arrays checksums checksums.md5 checksums.multi checksums.sha io io.encodings.binary io.files namespaces tools.test ; IN: checksums.multi.tests +{ + { + B{ + 9 143 107 205 70 33 211 115 202 222 78 131 38 39 180 246 + } + B{ + 169 74 143 229 204 177 155 166 28 76 8 115 211 145 233 + 135 152 47 187 211 + } + } +} [ + "test" >byte-array { md5 sha1 } checksum-bytes +] unit-test + { { B{ 155 181 180 45 142 211 121 3 86 11 19 254 46 110 208 53 } @@ -12,18 +26,6 @@ IN: checksums.multi.tests 209 7 104 } } -} [ - "test" >byte-array { md5 sha1 } checksum-bytes -] unit-test - -{ - { - B{ 220 158 207 218 50 163 198 36 234 90 122 65 197 14 224 16 } - B{ - 132 132 148 224 101 202 198 114 38 53 127 18 70 170 108 - 53 25 255 174 207 - } - } } [ "resource:LICENSE.txt" binary [ input-stream get { md5 sha1 } checksum-stream