Changes to UI when invoices locked, changes to source numbering behavior in bulk payments, test cases added, minor code cleanup for readability

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

1 files changed, 16 insertions, 1 deletions

diff --git a/t/62-api.t b/t/62-api.t
index 02b5dea6..639145fe 100644
--- a/t/62-api.t
+++ b/t/62-api.t
@@ -79,13 +79,20 @@ for my $test (@$test_request_data){
 }
 
 package LedgerSMB::Template;
-
+use Test::More;
 # Don't render templates.  Just return so we can run tests on data structures.
 sub render {
 	my ($self, $data) = @_;
 	if (ref $data->{_test_cases} eq 'CODE'){
 		$data->{_test_cases}($data);
 	}
+	if ($data->{_error_test}){
+		cmp_ok($data->{_died}, '==', '1', 
+			"$data->{_test_id} died as expected");
+	} else {
+		ok(!defined $data->{_died}, 
+			"$data->{_test_id} did not error");
+	}
 	return 1;
 }
 
@@ -103,3 +110,11 @@ sub _load_script {
 	do "bin/io.pl";
 	do "bin/$1[0]";
 }
+
+package LedgerSMB;
+
+sub error {
+    my $self = shift;
+    $self->{_error} = shift;
+    $self->{_died} = 1;
+}