From ff686b3e857fc34aabf2bb4d444b851df803352c Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 15 Nov 2008 23:57:07 +0000
Subject: Test case additions, and a few corrections

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2401 4979c152-3d1c-0410-bac9-87ea11338e46
---
 t/43-dbtest.t | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 t/43-dbtest.t

(limited to 't/43-dbtest.t')

diff --git a/t/43-dbtest.t b/t/43-dbtest.t
new file mode 100644
index 00000000..d19ab215
--- /dev/null
+++ b/t/43-dbtest.t
@@ -0,0 +1,24 @@
+use Test::More;
+use strict;
+
+if (!defined $ENV{PGDATABASE}){
+	plan skip_all => 'PGDATABASE Environment Variable not set up';
+}
+else {
+	plan tests => 50;
+}
+
+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/, $parts[0]);
+	}
+}
-- 
cgit v1.2.3