From ca652e04320debad4a1a5a98dec07e46a51344c6 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 23 Nov 2008 00:15:15 +0000
Subject: Test case corrected to set config entry first.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2419 4979c152-3d1c-0410-bac9-87ea11338e46
---
 t/62-api.t | 3 +++
 1 file changed, 3 insertions(+)

(limited to 't/62-api.t')

diff --git a/t/62-api.t b/t/62-api.t
index 3357a8ba..02b5dea6 100644
--- a/t/62-api.t
+++ b/t/62-api.t
@@ -35,6 +35,9 @@ my $dbh = LedgerSMB::DBTest->connect("dbi:Pg:dbname=$ENV{PGDATABASE}", undef, un
 my $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} );
 
 for my $test (@$test_request_data){
+        if (ref $pre_test_subs->{"$test->{_test_id}"} eq 'CODE'){
+		$pre_test_subs->{"$test->{_test_id}"}();
+	}
 	if (lc $test->{_codebase} eq 'old'){
 		next; # skip old codebase tests for now
 		old_code_test::_load_script($test->{module});
-- 
cgit v1.2.3