]> gitweb.factorcode.org Git - factor.git/blob - basis/checksums/openssl/openssl-tests.factor
basis: Cleaning up tests using lists and IN: forms.
[factor.git] / basis / checksums / openssl / openssl-tests.factor
1 USING: accessors byte-arrays checksums checksums.openssl
2 combinators.short-circuit kernel system tools.test ;
3
4 {
5     B{ 201 238 222 100 92 200 182 188 138 255 129 163 115 88 240 136 }
6 }
7 [
8     "Hello world from the openssl binding" >byte-array
9     "md5" <openssl-checksum> checksum-bytes
10 ] unit-test
11
12 {
13   B{ 63 113 237 255 181 5 152 241 136 181 43 95 160 105 44 87 49 82 115 0 }
14 }
15 [
16     "Hello world from the openssl binding" >byte-array
17     "sha1" <openssl-checksum> checksum-bytes
18 ] unit-test
19
20 [
21     "Bad checksum test" >byte-array
22     "no such checksum" <openssl-checksum>
23     checksum-bytes
24 ] [ { [ unknown-digest? ] [ name>> "no such checksum" = ] } 1&& ]
25 must-fail-with
26
27 { } [ image-path openssl-sha1 checksum-file drop ] unit-test