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

fix checksum test -- short circuit so correct error is reported

Doug Coleman 2009-05-17 20:32:43 -05:00
parent 9c85bc8ce3
commit 1505da918f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/checksums/openssl/openssl-tests.factor
View File

@ -1,6 +1,6 @@
USING: accessors byte-arrays checksums checksums.openssl
combinators.short-circuit kernel system tools.test ;
IN: checksums.openssl.tests IN: checksums.openssl.tests
USING: byte-arrays checksums.openssl checksums tools.test
accessors kernel system ;
[ [
B{ 201 238 222 100 92 200 182 188 138 255 129 163 115 88 240 136 } B{ 201 238 222 100 92 200 182 188 138 255 129 163 115 88 240 136 }
@ -22,7 +22,7 @@ accessors kernel system ;
"Bad checksum test" >byte-array "Bad checksum test" >byte-array
"no such checksum" <openssl-checksum> "no such checksum" <openssl-checksum>
checksum-bytes checksum-bytes
] [ [ unknown-digest? ] [ name>> "no such checksum" = ] bi and ] ] [ { [ unknown-digest? ] [ name>> "no such checksum" = ] } 1&& ]
must-fail-with must-fail-with
[ ] [ image openssl-sha1 checksum-file drop ] unit-test [ ] [ image openssl-sha1 checksum-file drop ] unit-test