mirror of
https://github.com/stephenenelson/convert-binhex.git
synced 2024-11-22 17:30:57 +00:00
13 lines
230 B
Perl
13 lines
230 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More;
|
||
|
|
use Convert::BinHex 'binhex_crc';
|
||
|
|
|
||
|
|
# Random data
|
||
|
|
my $data = "U1SBdxdMHpA2wlW3TOgUHXZ00jvHnkyU/ndXnr9RMElXdQXUAGYrPpf4F8jO";
|
||
|
|
|
||
|
|
my $crc = binhex_crc($data);
|
||
|
|
is($crc, 35360);
|
||
|
|
|
||
|
|
done_testing();
|