convert-binhex/t/crc.t

use strict;
use warnings;

use Test::More;
use Convert::BinHex qw(binhex_crc macbinary_crc);

# Random data
my $data = "U1SBdxdMHpA2wlW3TOgUHXZ00jvHnkyU/ndXnr9RMElXdQXUAGYrPpf4F8jO";

my $crc = binhex_crc($data);
is($crc, 35360);

my $mac_crc = macbinary_crc($data);
is($crc, 35360);

done_testing();