# test_LUHN_1.pl                                            01dec18waw

use warnings;
use strict;

use Benchmark qw(cmpthese);

use LUHN;

for ('000' .. '999') {
    my $ccn = '401135000000' . $_;
    my $kschwab_cd       = LUHN::cd_kschwab       ($ccn);
    my $AnomalousMonk_cd = LUHN::cd_AnomalousMonk ($ccn);
    die "$ccn: kschwab $kschwab_cd != $AnomalousMonk_cd"
        if $kschwab_cd != $AnomalousMonk_cd;
    }
print "tested cc number range kschwab vs. AnomalousMonk ok \n";

for ('000' .. '999') {
    my $ccn = '401135000000' . $_;
    my $kschwab_cd   = LUHN::cd_kschwab   ($ccn);
    my $BrowserUk_cd = LUHN::cd_BrowserUk ($ccn);
    die "$ccn: kschwab $kschwab_cd != $BrowserUk_cd"
        if $kschwab_cd != $BrowserUk_cd;
    }
print "tested cc number range kschwab vs. BrowserUk ok \n";

cmpthese (-1, {
  cd_kschwab   => sub { LUHN::cd_kschwab       ('401135000000000') },
  cd_AM        => sub { LUHN::cd_AnomalousMonk ('401135000000000') },
  cd_BrowserUk => sub { LUHN::cd_BrowserUk     ('401135000000000') },
  });