use Test::More tests => 3;
use DateTime;
use_ok('Business::TW::TSIB::CStorePayment');
is(Business::TW::TSIB::CStorePayment->_compute_checksum('991231Y01', 'ABCDEFGHIKLMNPQR', '123400000007890'), '9Y');
my $csp = Business::TW::TSIB::CStorePayment->new({ corp_code => 'AIIN' });
my @bar = $csp->generate( { due => DateTime->new( year => 2007, month => 4, day => 2 ),
amount => 3900,
ar_id => '20892' } );
is_deeply( \@bar,
[qw(960402627 AIIN000000020892 040265000003900)] );