From e7107a4bd3c82fa4fb2053898b3f77fb4d78f17f Mon Sep 17 00:00:00 2001 From: Stephen Nelson Date: Sun, 25 Aug 2013 09:59:24 -0700 Subject: [PATCH] Added test for macbinary CRC --- t/crc.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/crc.t b/t/crc.t index 43c3f48..d62a70c 100644 --- a/t/crc.t +++ b/t/crc.t @@ -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(); \ No newline at end of file