38 lines
1.2 KiB
Factor
38 lines
1.2 KiB
Factor
USING: byte-arrays checksums checksums.murmur fry kernel math
|
|
sequences tools.test ;
|
|
|
|
{ 455139366 } [ "asdf" >byte-array 0 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 417250299 } [ "asdf" >byte-array 156 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 3902511862 } [ "abcde" >byte-array 0 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 2517562459 } [ "abcde" >byte-array 156 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 2444432334 } [ "12345678" >byte-array 0 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 2584512840 } [ "12345678" >byte-array 156 <murmur3-32> checksum-bytes ] unit-test
|
|
{ 3560398725 } [ "hello, world!!!" >byte-array 156 <murmur3-32> checksum-bytes ] unit-test
|
|
|
|
{
|
|
{
|
|
3903553677
|
|
3120384252
|
|
3928660296
|
|
2995164002
|
|
500661690
|
|
2764333444
|
|
1941147762
|
|
161439790
|
|
2584512840
|
|
3803370487
|
|
626154228
|
|
}
|
|
} [
|
|
"1234567890" [ length 1 + ] keep 156 <murmur3-32>
|
|
'[ _ swap head _ checksum-bytes ] { } map-integers
|
|
] unit-test
|
|
|
|
|
|
{ t } [
|
|
"1234567890" dup >byte-array [
|
|
[ length 1 + ] keep 156 <murmur3-32>
|
|
'[ _ swap head _ checksum-bytes ] { } map-integers
|
|
] bi@ =
|
|
] unit-test
|