From 57d4a99298f9ba1c761915db4f0922d99a3c9509 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 25 Nov 2008 06:53:38 +0000 Subject: 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 --- t/62-api.t | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 't/62-api.t') 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; +} -- cgit v1.2.3