From ee39f29cf48e873e015c0da8b1257097c4fb966e Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 17 Nov 2008 17:30:44 +0000 Subject: More test cases and framework stuff. t/62-api.t is currently not working. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2403 4979c152-3d1c-0410-bac9-87ea11338e46 --- t/43-dbtest.t | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 't/43-dbtest.t') diff --git a/t/43-dbtest.t b/t/43-dbtest.t index 812c382b..9cc9fd15 100644 --- a/t/43-dbtest.t +++ b/t/43-dbtest.t @@ -1,11 +1,17 @@ use Test::More; use strict; -if (!defined $ENV{PGDATABASE}){ - plan skip_all => 'PGDATABASE Environment Variable not set up'; +if (!defined $ENV{LSMB_TEST_DB}){ + plan skip_all => 'Skipping all. Told not to test db.'; } else { plan tests => 50; + if (defined $ENV{LSMB_NEW_DB}){ + $ENV{PGDATABASE} = $ENV{LSMB_NEW_DB}; + } + if (!defined $ENV{PGDATABASE}){ + die "We were told to run tests, but no database specified!"; + } } my @testscripts = qw(Account Business_type Company Draft Payment -- cgit v1.2.3