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 = {};
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(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";
};