Batch numbers assigned at batch creation phase. Tests working.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2414 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 35 insertions, 1 deletions

diff --git a/t/data/62-request-data b/t/data/62-request-data
index ae8c6d0e..e3c6108b 100644
--- a/t/data/62-request-data
+++ b/t/data/62-request-data
@@ -1,4 +1,4 @@
-
+use Test::More;
 our $test_request_data = [
 	# AR/AP Transaction Screen Tests
 	{
@@ -49,8 +49,42 @@ our $test_request_data = [
 		'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)){