From ee39f29cf48e873e015c0da8b1257097c4fb966e Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 17 Nov 2008 17:30:44 +0000
Subject: More test cases and framework stuff.  t/62-api.t is currently not
 working.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2403 4979c152-3d1c-0410-bac9-87ea11338e46
---
 t/data/62-request-data | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 t/data/62-request-data

(limited to 't/data/62-request-data')

diff --git a/t/data/62-request-data b/t/data/62-request-data
new file mode 100644
index 00000000..ae8c6d0e
--- /dev/null
+++ b/t/data/62-request-data
@@ -0,0 +1,58 @@
+
+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";
+};
-- 
cgit v1.2.3