view release on metacpan or  search on metacpan

t/Crypt-xxHash.t  view on Meta::CPAN

/;

sub testSequence;
sub testSequence64;

my $b1 = join '', map {chr} 0xB8, 0x1E, 0x85, 0xEB, 0x51, 0xB8, 0x9E, 0x3F,
    0xB8, 0x1E, 0x85, 0xEB, 0x51, 0xB8, 0x9E, 0x3F, 0xB8, 0x1E, 0x85, 0xEB,
    0x51, 0xB8, 0x9E, 0x3F, 0xB8, 0x1E, 0x85, 0xEB, 0x51, 0xB8, 0x9E, 0x3F,
    0xB8, 0x1E, 0x85, 0xEB, 0x51, 0xB8, 0x9E, 0x3F, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x50, 0xC3, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x20, 0x13, 0x08, 0x12, 0x65, 0xE3, 0x6A, 0xC0;
my $b2 = join '', map {chr} 0xD7, 0xA3, 0x70, 0x3D, 0x0A, 0x57, 0x21, 0x40,
    0x9A, 0x99, 0x99, 0x99, 0x99, 0x99, 0x21, 0x40, 0xA4, 0x70, 0x3D, 0x0A,
    0xD7, 0x23, 0x21, 0x40, 0x14, 0xAE, 0x47, 0xE1, 0x7A, 0x94, 0x21, 0x40,
    0x14, 0xAE, 0x47, 0xE1, 0x7A, 0x94, 0x21, 0x40, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0xD8, 0x3C, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x20, 0x13, 0x08, 0x13, 0xA9, 0xF1, 0xE2, 0x2A;

# 32bit
is( xxhash32($b1, 0x5262), xxhash32($b2, 0x5262), 'Known 32 bit collision' );
is( xxhash32('test', 123),   2758658570, 'basic' );
is( xxhash32('test', 12345), 3834992036, 'basic w/ different seed' );
is( xxhash32_hex('test', 12345), 'e49555a4', 'xxhash32_hex' );

# 64bit
is( uint64(xxhash64('test64', 1123)), uint64('18300740539230391133') );
is( uint64(xxhash64('test64', 5813)), uint64('470519085964830776') );
is( uint64(xxhash3_64bits('test64', 1123)), uint64('855843287810803924') );
is( uint64(xxhash3_64bits('test64', 5813)), uint64('9266226278152659498') );
is( xxhash64_hex('test64', 5813), '06879e9da2f9a838', 'xxhash64_hex' );
is( xxhash3_64bits_hex('test64', 5813), '80983fb495ade22a', 'xxhash3_64bits_hex' );
my $SANITY_BUFFER_SIZE = 101;
my $prime              = 2654435761;
my $sanityBuffer       = pack('H*', '9eff1f4b5e532fddb5544d2a952b57ae5dba74e9d3a64c983060c080');

testSequence('',            0,                   0,      0x02CC5D05);
testSequence('',            0,                   $prime, 0x36B78AE7);
testSequence($sanityBuffer, 1,                   0,      0xB85CBEE5);
testSequence($sanityBuffer, 1,                   $prime, 0xD5845D64);
testSequence($sanityBuffer, 14,                  0,      0xE5AA0AB4);
testSequence($sanityBuffer, 14,                  $prime, 0x4481951D);
testSequence($sanityBuffer, $SANITY_BUFFER_SIZE, 0,      0x1F1AA412);
testSequence($sanityBuffer, $SANITY_BUFFER_SIZE, $prime, 0x498EC8E2);
testSequence64('',            0,  0,      'EF46DB3751D8E999');
testSequence64('',            0,  $prime, 'AC75FDA2929B17EF');
testSequence64($sanityBuffer, 1,  0,      '4FCE394CC88952D8');
testSequence64($sanityBuffer, 1,  $prime, '739840CB819FA723');
testSequence64($sanityBuffer, 14, 0,      'CFFA8DB881BC3A3D');
testSequence64($sanityBuffer, 14, $prime, '5B9611585EFCC9CB');
testSequence64($sanityBuffer, $SANITY_BUFFER_SIZE, 0, '0EAB543384F878AD');
testSequence64($sanityBuffer, $SANITY_BUFFER_SIZE, $prime,        'CAA65939306F1E21');

is( xxhash64_hex("b" x 100000, 890272), 'df8fee94dbf20a9d', 'uint64' );
is( xxhash64_hex("b" x 100000, 89), '01aae2582443bbf0', 'expect leading zeros' );

{
    my $stream = xxhash3_64bits_stream(1123);
    xxhash3_64bits_stream_update($stream, 'te');
    xxhash3_64bits_stream_update($stream, 'st');
    xxhash3_64bits_stream_update($stream, '64');
    is( xxhash3_64bits_stream_digest($stream), uint64('18300740539230391133'), 'uint64 streaming' );
}
{
    my $stream = xxhash3_64bits_stream(890272);
    xxhash3_64bits_stream_update($stream, "b" x 1000) for(1..100);
    is( xxhash3_64bits_stream_digest_hex($stream), 'df8fee94dbf20a9d', 'uint64 streaming hex' );
}
{
    my $stream = xxhash3_64bits_stream(89);
    xxhash3_64bits_stream_update($stream, "b" x 1000) for(1..100);
    is( xxhash3_64bits_stream_digest_hex($stream), '01aae2582443bbf0', 'uint64 streaming hex leading zeros' );
}

# 128 bits
is( xxhash3_128bits_hex('test64', 5813), '2675a6f40fe52f19601fc692c37d6e4d', 'xxhash3_128bits_hex' );

# TODO: 128, 256
done_testing;

####

sub testSequence {
    my ($sentence, $len, $seed, $result) = @_;
    is xxhash32(pack('a' . $len, $sentence), $seed), $result, 'line ' . (caller())[2];
}

sub testSequence64 {
    my ($sentence, $len, $seed, $result) = @_;
    is uint64(xxhash64(pack('a' . $len, $sentence), $seed)), hex_to_uint64($result), 'line ' . (caller())[2];
}

1;
__END__