diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-22 21:38:18 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-22 21:38:18 +0000 |
commit | bda04bbe95f0ff8996619a5c2599b070d4a7326f (patch) | |
tree | 057af110773f9c84f5f7850e8980f1f873241575 /t/62-api.t | |
parent | 75a1145585826d7c88eee5fd8d536d62176d1e6d (diff) |
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
Diffstat (limited to 't/62-api.t')
-rw-r--r-- | t/62-api.t | 16 |
1 files changed, 12 insertions, 4 deletions
@@ -5,8 +5,6 @@ BEGIN { use LedgerSMB::DBTest; } -our $api_test_cases = { -}; if (defined $ENV{LSMB_TEST_DB}){ if (defined $ENV{LSMB_NEW_DB}){ @@ -56,14 +54,20 @@ for my $test (@$test_request_data){ $request->merge($test); my $script = $test->{module}; $request->{dbh} = $dbh; + if (ref $api_test_cases->{"$test->{_test_id}"} eq 'CODE'){ + $request->{_test_cases} = + $api_test_cases->{"$test->{_test_id}"}; + } + delete $api_test_cases->{"$test->{_test_id}"}; $script =~ s/\.pl$//; is(ref "LedgerSMB::Scripts::$script"->can($request->{action}), 'CODE', "$test->{_test_id}: Action ($request->{action}) Defined"); ok("LedgerSMB::Scripts::$script"->can($request->{action})->($request), "$test->{_test_id}: Action Successful"); } - for (@{$api_test_cases->{"$test->{_test_id}"}}){ - &$_; + if (ref $api_test_cases->{"$test->{_test_id}"} eq 'CODE'){ + $request->{_test_cases} = + $api_test_cases->{"$test->{_test_id}"}; } ok($dbh->rollback, "$test->{_test_id}: rollback"); } @@ -72,6 +76,10 @@ package LedgerSMB::Template; # 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); + } return 1; } |