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',
#		'module'        => 'payment.pl',
#		'account_class' => 1,
#		'currency'      => 'USD',
#		'multiple'      => 1,
#		'format'	=> 
#                
#	},
];

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');
	},
};

opendir (D62, 't/data/62.d');
for my $testfile (readdir(D62)){
	do "t/data/62.d/$testfile";
};