path: root/t/data/62-request-data

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";
};