summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sql/modules/Account.sql2
-rw-r--r--sql/modules/chart.sql2
-rw-r--r--sql/modules/test/Account.sql15
3 files changed, 9 insertions, 10 deletions
diff --git a/sql/modules/Account.sql b/sql/modules/Account.sql
index 2265508a..a47c640b 100644
--- a/sql/modules/Account.sql
+++ b/sql/modules/Account.sql
@@ -10,7 +10,7 @@ BEGIN
END;
$$ LANGUAGE plpgsql;
-CREATE OR REPLACE FUNCTION account_is_orphaned (in_id int) RETURNS bool AS
+CREATE OR REPLACE FUNCTION account_has_transactions (in_id int) RETURNS bool AS
$$
BEGIN
PERFORM trans_id FROM acc_trans WHERE chart_id = in_id LIMIT 1;
diff --git a/sql/modules/chart.sql b/sql/modules/chart.sql
index 2e136371..0ee11b03 100644
--- a/sql/modules/chart.sql
+++ b/sql/modules/chart.sql
@@ -34,6 +34,7 @@ BEGIN
END LOOP;
END;
$$ language plpgsql;
+
COMMENT ON FUNCTION chart_list_cash(in_account_class int) IS
$$ This function returns the cash account acording with in_account_class which must be 1 or 2 $$;
@@ -80,5 +81,6 @@ BEGIN
END LOOP;
END;
$$ language plpgsql;
+
COMMENT ON FUNCTION chart_list_cash(in_account_class int) IS
$$ This function returns the overpayment accounts acording with in_account_class which must be 1 or 2 $$;
diff --git a/sql/modules/test/Account.sql b/sql/modules/test/Account.sql
index d2f1545d..23597c8e 100644
--- a/sql/modules/test/Account.sql
+++ b/sql/modules/test/Account.sql
@@ -8,6 +8,10 @@ VALUES ('TEST testing 1', 'A', 'A', '00001');
INSERT INTO chart (description, charttype, category, accno)
VALUES ('TEST testing 2', 'A', 'A', '00002');
+INSERT INTO ap (invnumber, netamount, amount) VALUES ('TEST', '0', '0');
+INSERT INTO acc_trans (trans_id, chart_id, amount)
+VALUES (currval('id')::int, currval('chart_id_seq')::int, '0');
+
INSERT INTO chart (description, charttype, category, accno, link)
VALUES ('TEST AP 1', 'A', 'L', '00003', 'AP');
@@ -71,15 +75,11 @@ VALUES ('TEST AP Overpayment 4 INVALID', 'A', 'A', '00022', 'AR_overp');
INSERT INTO test_result(test_name, success)
VALUES ('Accounts created', currval('chart_id_seq') is not null);
-INSERT INTO ap (invnumber, netamount, amount) VALUES ('TEST', '0', '0');
-INSERT INTO acc_trans (trans_id, chart_id, amount)
-VALUES (currval('id')::int, currval('chart_id_seq')::int, '0');
-
INSERT INTO test_result(test_name, success)
-VALUES ('Chart 1 is orphaned', account_is_orphaned((select id from chart where description = 'TEST testing 1')));
+VALUES ('Chart 1 is orphaned', account_has_transactions((select id from chart where description = 'TEST testing 1')) is false);
INSERT INTO test_result(test_name, success)
-VALUES ('Chart 2 is not orphaned', account_is_orphaned(currval('chart_id_seq')::int) is false);
+VALUES ('Chart 2 is not orphaned', account_has_transactions((select id from chart where accno = '00002')) is true);
INSERT INTO test_result(test_name, success)
SELECT 'All Test Accounts Exist', count(*) = 22 FROM chart_list_all()
@@ -116,7 +116,4 @@ SELECT (select count(*) from test_result where success is true)
|| (select count(*) from test_result where success is not true)
|| ' failed' as message;
-\echo This currently fails 2 tests due to some confusion as to
-\echo account_is_orphaned is supposed to do.
-
ROLLBACK;