BEGIN {
  $tests = 31;
  if ($ENV{'WITH_CRC64'}) {
    $tests=$tests+2;
  }
  $| = 1;

  eval "use Test::More tests => $tests";

  $@ and eval <<'ENDEV';
$ok = 1;

print "1..$tests\n";

sub ok {
  my($res,$comment) = @_;
  defined $comment and print "# $comment\n";
  $res or print "not ";
  print "ok ", $ok++, "\n";
}
ENDEV
}

use Digest::CRC qw(crc64 crc32 crc16 crcccitt crc8 crcopenpgparmor
                   crc64_hex crc32_hex crc16_hex crcccitt_hex crc8_hex crcopenpgparmor_hex);
ok(1, 'use');

my $input = "123456789";
my ($crc32,$crc16,$crcccitt,$crc8) = (crc32($input),crc16($input),crcccitt($input),crc8($input));

if ($ENV{'WITH_CRC64'}) {
  my $crc64 = crc64($input);
  ok($crc64 == 5090661014116757502, 'crc64 '.$crc64); 
  $ctx = Digest::CRC->new(type=>"crc64"); 
  $ctx->add($input);
  $crc64 = $ctx->digest;
  ok($crc64 == 5090661014116757502, 'OO crc64 '.$crc64); 
}

ok($crc32 == 3421780262, 'crc32'); 
$crc32=$crc32^0xffffffff;
ok(crc32($input.join('', 
                 map {chr(($crc32>>(8*$_))&0xff)} (0,1,2,3))) == 0xffffffff,
   'crc32 Nulltest');
ok($crcccitt == 10673, 'crcccitt'); 
ok($crc16 == 47933, 'crc16'); 
ok($crc8 == 244, 'crc8'); 
ok(($crc8=crc8($input.chr($crc8))) == 0, 'crc8 Nulltest');
my $ctx; $ctx = Digest::CRC->new(); 
$ctx->add($input);
ok($ctx->digest == 3421780262, 'OO crc32'); 

$crc32=$crc32^0xffffffff;


# addfile
open(F,"<README")||die "Cannot open README";
$ctx->addfile(F);
close(F);
my $y = $ctx->digest;
ok($y == 4009136024, 'OO crc32 with addfile '.$y); 

# start at offset >0 with previous checksum result
$ctx = Digest::CRC->new(type=>"crc32",cont=>1,init=>460478609); 
open(F,"<README")||die "Cannot open README";
use Fcntl qw(:seek);
seek(F,989,Fcntl::SEEK_SET);
$ctx->addfile(F);
close(F);
$y = $ctx->digest;
ok($y == 2371909219, 'OO crc32 with init and addfile '.$y); 

$ctx = Digest::CRC->new(type=>"crcccitt"); 
$ctx->add($input);
ok($ctx->digest == 10673, 'OO crcccitt'); 

$ctx = Digest::CRC->new(type=>"crc16"); 
$ctx->add($input);
ok($ctx->digest == 47933, 'OO crc16'); 

$ctx = Digest::CRC->new(width=>16,init=>0,xorout=>0,refout=>1,poly=>0x3456,
                        refin=>1,cont=>0);
$ctx->add($input);
ok($ctx->digest == 12803, 'OO crc16 poly 3456'); 

$ctx = Digest::CRC->new(type=>"crc8");
$ctx->add($input);
ok($ctx->digest == 244, 'OO crc8');

# crc8 test from Mathis Moder <mathis@pixelconcepts.de>
$ctx = Digest::CRC->new(width=>8, init=>0xab, xorout=>0x00, refout=>0, poly=>0x07,
                        refin=>0, cont=>0);
$ctx->add($input);
ok($ctx->digest == 135, 'OO crc8 init=ab');

$ctx = Digest::CRC->new(width=>8, init=>0xab, xorout=>0xff, refout=>1, poly=>0x07,
                        refin=>1, cont=>0);
$ctx->add("f1");
ok($ctx->digest == 106, 'OO crc8 init=ab, refout');

$input = join '', 'aa'..'zz';
($crc32,$crc16,$crcccitt,$crc8) = (crc32($input),crc16($input),crcccitt($input),crc8($input));

# some more large messages
ok($crc32 == 0xCDA63E54, 'crc32'); 
ok($crcccitt == 0x9702, 'crcccitt'); 
ok($crc16 == 0x0220, 'crc16'); 
ok($crc8 == 0x82, 'crc8'); 

# hex digest
my $hexinput = "ae";
($crc32,$crc16,$crcccitt,$crc8,$crcopenpgparmor) = (crc32_hex($hexinput),crc16_hex($hexinput),crcccitt_hex($hexinput),crc8_hex($hexinput),crcopenpgparmor_hex($hexinput));
ok($crc32 == "00e7ddce", 'crc32_hex');  # width padding to 4 bytes
ok($crcccitt == "1917", 'crcccitt_hex'); 
ok($crc16 == "bbe9", 'crc16_hex'); 
ok($crc8 == "dc", 'crc8_hex'); 
ok($crcopenpgparmor == "3e653a", 'crcopenpgparmor_hex'); 

$ctx = Digest::CRC->new(type=>"crc8"); 
$ctx->add($hexinput);
ok($ctx->hexdigest == "dc", 'OO crc8 hex'); 
$ctx = Digest::CRC->new(type=>"crc16"); 
$ctx->add($hexinput);
ok($ctx->hexdigest == "bbe9", 'OO crc16 hex'); 
$ctx = Digest::CRC->new(type=>"crc32"); 
$ctx->add($hexinput);
ok($ctx->hexdigest == "00e7ddce", 'OO crc32 hex'); 
$ctx = Digest::CRC->new(type=>"crcccitt"); 
$ctx->add($hexinput);
ok($ctx->hexdigest == "1917", 'OO crcccitt hex'); 
$ctx = Digest::CRC->new(type=>"crcopenpgparmor"); 
$ctx->add($hexinput);
ok($ctx->hexdigest == "3e653a", 'OO crcopenpgparmor hex'); 

# openpgparmor
my $openpgparmor = crcopenpgparmor($input);
ok($openpgparmor == 4874579, 'openpgparmor '.$openpgparmor);