2009-05-17 21:32:43 -04:00
|
|
|
USING: accessors byte-arrays checksums checksums.openssl
|
|
|
|
|
combinators.short-circuit kernel system tools.test ;
|
2008-05-11 18:43:45 -04:00
|
|
|
IN: checksums.openssl.tests
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
B{ 201 238 222 100 92 200 182 188 138 255 129 163 115 88 240 136 }
|
|
|
|
|
]
|
|
|
|
|
[
|
|
|
|
|
"Hello world from the openssl binding" >byte-array
|
|
|
|
|
"md5" <openssl-checksum> checksum-bytes
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
B{ 63 113 237 255 181 5 152 241 136 181 43 95 160 105 44 87 49 82 115 0 }
|
|
|
|
|
]
|
|
|
|
|
[
|
|
|
|
|
"Hello world from the openssl binding" >byte-array
|
|
|
|
|
"sha1" <openssl-checksum> checksum-bytes
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"Bad checksum test" >byte-array
|
|
|
|
|
"no such checksum" <openssl-checksum>
|
|
|
|
|
checksum-bytes
|
2009-05-17 21:32:43 -04:00
|
|
|
] [ { [ unknown-digest? ] [ name>> "no such checksum" = ] } 1&& ]
|
2008-05-11 18:43:45 -04:00
|
|
|
must-fail-with
|
|
|
|
|
|
|
|
|
|
[ ] [ image openssl-sha1 checksum-file drop ] unit-test
|
