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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/checksums/crc32/crc32-tests.factor
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{ 0 0 0 0 } } [ "" crc32 checksum-bytes ] unit-test
{ B{ 0xcb 0xf4 0x39 0x26 } } [ "123456789" 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