use Test::More; our $test_request_data = [ # AR/AP Transaction Screen Tests { '_test_id' => 'AR Transaction Screen', '_codebase' => 'old', 'module' => 'ar.pl', 'action' => 'add' }, { '_test_id' => 'AP Transaction Screen', '_codebase' => 'old', 'module' => 'ap.pl', 'action' => 'add' }, # Create Batch Screens { '_test_id' => 'AR Transaction Voucher Screen', '_codebase' => 'new', 'action' => 'create_batch', 'batch_type' => 'recievable', 'module' => 'vouchers.pl', }, { '_test_id' => 'AP Transaction Voucher Screen', '_codebase' => 'new', 'action' => 'create_batch', 'batch_type' => 'payable', 'module' => 'vouchers.pl', }, { '_test_id' => 'Payment Transaction Voucher Screen', '_codebase' => 'new', 'action' => 'create_batch', 'batch_type' => 'payment', 'module' => 'vouchers.pl', }, { '_test_id' => 'Payment Reversal Transaction Voucher Screen', '_codebase' => 'new', 'action' => 'create_batch', 'batch_type' => 'payment_reversal', 'module' => 'vouchers.pl', }, { '_test_id' => 'GL Transaction Voucher Screen', '_codebase' => 'new', 'action' => 'create_batch', 'batch_type' => 'gl', 'module' => 'vouchers.pl', }, { '_test_id' => 'Payment print total', '_codebase' => 'new', 'action' => 'print', 'approved' => 0, 'currency' => 'USD', 'datepaid' => '2008-07-22', 'contact_1' => '25', 'id_25' => '25', 'paid_25' => 'all', 'payment_209' => '1000.00', 'invoice_25_1' => 209, 'net_209' => '1000.00', 'payment_210' => '-100.00', 'invoice_25_2' => '210', 'net_210' => '-100.00', 'payment_344' => '100000.00', 'invoice_25_3' => '344', 'net_344' => '100000.00', 'payment_352' => '1000.00', 'invoice_25_4' => '352', 'net_352' => '1000.00', 'payment_353' => '1000.00', 'invoice_25_5' => '353', 'net_353' => '1000.00', 'payment_354' => '1000.00', 'invoice_25_6' => '354', 'net_354' => '1000.00', 'payment_355' => '1000.00', 'invoice_25_7' => '355', 'net_355' => '1000.00', 'payment_356' => '1000.00', 'invoice_25_8' => '356', 'net_356' => '1000.00', 'invoice_count_25' => 8, 'contact_count' => 1, 'media' => 'screen', 'format' => 'PDF', 'module' => 'payment.pl', 'account_class' => 1, 'currency' => 'USD', 'multiple' => 1, }, ]; our $pre_test_subs = { 'Payment print total' => sub { $LedgerSMB::Sysconfig::check_max_invoices = 1; }, }; our $api_test_cases = { 'AR Transaction Voucher Screen' => sub { my $request = shift; ok($request->{batch_number}, 'Batch Number is Defined'); }, 'AP Transaction Voucher Screen' => sub { my $request = shift; ok($request->{batch_number}, 'Batch Number is Defined'); }, 'Payment Transaction Voucher Screen' => sub { my $request = shift; ok($request->{batch_number}, 'Batch Number is Defined'); }, 'Payment Reversal Transaction Voucher Screen' => sub { my $request = shift; ok($request->{batch_number}, 'Batch Number is Defined'); }, 'GL Transaction Voucher Screen' => sub { my $request = shift; ok($request->{batch_number}, 'Batch Number is Defined'); }, 'Payment print total' => sub { use strict; my $request = shift; $request->debug({file => '/tmp/check' }); cmp_ok($request->{invoice_count_25}, '>', $LedgerSMB::Sysconfig::check_max_invoices, 'Test is valid under current config'); cmp_ok(scalar @{$request->{checks}}, '==', $request->{contact_count}, 'Correct number of checks printed'); my $check = shift @{$request->{checks}}; cmp_ok( $request->format_amount({ amount => $check->{amount}, format => '1000.00', precision => 2 }), 'eq', '105900.00', 'Printed amount is correct' ); } }; opendir (D62, 't/data/62.d'); for my $testfile (readdir(D62)){ do "t/data/62.d/$testfile"; };