Added test for macbinary CRC

This commit is contained in:
Stephen Nelson 2013-08-25 09:59:24 -07:00
parent fead905e96
commit e7107a4bd3
1 changed files with 4 additions and 1 deletions

View File

@ -2,7 +2,7 @@ use strict;
use warnings;
use Test::More;
use Convert::BinHex 'binhex_crc';
use Convert::BinHex qw(binhex_crc macbinary_crc);
# Random data
my $data = "U1SBdxdMHpA2wlW3TOgUHXZ00jvHnkyU/ndXnr9RMElXdQXUAGYrPpf4F8jO";
@ -10,4 +10,7 @@ my $data = "U1SBdxdMHpA2wlW3TOgUHXZ00jvHnkyU/ndXnr9RMElXdQXUAGYrPpf4F8jO";
my $crc = binhex_crc($data);
is($crc, 35360);
my $mac_crc = macbinary_crc($data);
is($crc, 35360);
done_testing();