t/43-dbtest.t



use Test::More;
use strict;

if (!defined $ENV{LSMB_TEST_DB}){
    plan skip_all => 'Skipping all.  Told not to test db.';
}
else {
    plan tests => 52;
    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 
            Session Voucher);

chdir 'sql/modules/test/';

for my $testscript (@testscripts){
    open (TEST, '-|', "psql -f $testscript.sql");
    my @testlines = grep /\|\s+(t|f)\s?$/, <TEST>;
    cmp_ok(scalar @testlines, '>', 0, "$testscript.sql returned test results");
    for my $test (@testlines){
        my @parts = split /\|/, $test;
        like($parts[1], qr/t\s?$/, $parts[0]);
    }
}