checksums.crc32: verify checksum-state is working.

char-rename
John Benediktsson 2016-08-02 13:16:30 -07:00
parent 55df8437df
commit 851398898b
1 changed files with 7 additions and 1 deletions

View File

@ -1,5 +1,11 @@
USING: checksums checksums.crc32 tools.test ;
USING: checksums checksums.crc32 kernel tools.test ;
{ B{ 0 0 0 0 } } [ "" crc32 checksum-bytes ] unit-test
{ B{ 0xcb 0xf4 0x39 0x26 } } [ "123456789" crc32 checksum-bytes ] unit-test
{ t } [
"resource:LICENSE.txt" crc32
[ [ swap add-checksum-file get-checksum ] with-checksum-state ]
[ checksum-file ] 2bi =
] unit-test