#!perl -T
use strict;
use warnings;
use Test::More;
use Business::Colissimo;
my ($colissimo, $name, $value, $control_key, $tests);
my %control_keys = (access_f => {
# control keys for tracking
2052475203 => 2,
4139207826 => 0,
4139212825 => 5,
# control keys for sorting
900001086000003 => 7,
},
expert_i => {
# control keys for tracking
24561983 => 7,
'00005826' => 6,
'00005887' => 5, # modulo 0 => key 5,
'00005899' => 0, # modulo 1 => key 0,
# control keys for sorting
900001086000003 => 7,
},
);
$tests = 0;
for my $mode (keys %control_keys) {
$tests += scalar keys %{$control_keys{$mode}};
}
plan tests => $tests;
for my $mode (keys %control_keys) {
$colissimo = Business::Colissimo->new(mode => $mode);
while (($name, $value) = each %{$control_keys{$mode}}) {
$control_key = $colissimo->control_key($name);
ok ($control_key == $value, "Test control key for mode $mode and $name.")
|| diag ("Mode $mode, Control $name, expected: $value, got: $control_key");
}
}