- 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',
- },
- ];
- opendir (D62, 't/data/62.d');
- for my $testfile (readdir(D62)){
- do "t/data/62.d/$testfile";
- };
|