Nightly check on state of CM.iCS column

cm-ics-check.t

#!perl  
                                                                                                      
use v5.22; 
use warnings;
        
use Test::More;
    
use FindBin;                                                                                          
use lib "$FindBin::Bin/../xt/lib";                                                                    
use JunoTest::Database;                                                                               

my %tests = (
    AGEEAS00 => 'Y',
    ATLPRE00 => 'N',
    EASYPX00 => 'Y',
    GAOIMA00 => 'N',
    GULSER00 => 'Y',
    INDIGO01 => 'Y',
    INMAGE00 => 'Y',
    LATMEX00 => 'Y',
    LATSTO00 => 'Y',
    MULTIB00 => 'Y',
    PHOSTO00 => 'Y',
    STOPHO00 => 'N',
    TOPPHO00 => 'N',
    YOONIQ00 => 'Y',
);
my @codes = keys %tests;

my $schema  = juno_db_schema();
my @companies = $schema->customers->search(
    {   
        cod => { -in => \@codes},
    })->all;

for my $comp (@companies) {
    is $comp->tax_withholding, $tests{$comp->customer_code}, "Withhold tax is correct";
}
done_testing;