core/checksums/crc32/crc32-tests.factor

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