steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums.multi: fix tests.

windows-drag
John Benediktsson 2019-03-23 07:20:31 -07:00
parent ffbb4c8289
commit e4c94e7d98
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
extra/checksums/multi/multi-tests.factor
View File

@ -4,6 +4,20 @@ USING: byte-arrays checksums checksums.md5 checksums.multi
checksums.sha io io.encodings.binary io.files namespaces tools.test ; checksums.sha io io.encodings.binary io.files namespaces tools.test ;
IN: checksums.multi.tests 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 } <multi-checksum> checksum-bytes
] unit-test
{ {
{ {
B{ 155 181 180 45 142 211 121 3 86 11 19 254 46 110 208 53 } 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 209 7 104
} }
} }
} [
"test" >byte-array { md5 sha1 } <multi-checksum> 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 [ "resource:LICENSE.txt" binary [
input-stream get { md5 sha1 } <multi-checksum> checksum-stream input-stream get { md5 sha1 } <multi-checksum> checksum-stream