From 78378acad3a0d9173c53ddafc13f764b4eccacc1 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 3 Oct 2008 22:22:16 +0000 Subject: Adding approved check to payment_get_all_contact_invoices. Adding test cases git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2349 4979c152-3d1c-0410-bac9-87ea11338e46 --- sql/modules/Payment.sql | 7 ++-- sql/modules/test/Payment.sql | 76 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 81 insertions(+), 2 deletions(-) create mode 100644 sql/modules/test/Payment.sql (limited to 'sql') diff --git a/sql/modules/Payment.sql b/sql/modules/Payment.sql index 8cf67901..34d506cc 100644 --- a/sql/modules/Payment.sql +++ b/sql/modules/Payment.sql @@ -221,7 +221,8 @@ BEGIN JOIN entity_credit_account c ON (e.id = c.entity_id) JOIN (SELECT ap.id, invnumber, transdate, amount, entity_id, paid, curr, 1 as invoice_class, - entity_credit_account, on_hold, v.batch_id + entity_credit_account, on_hold, v.batch_id, + approved FROM ap LEFT JOIN (select * from voucher where batch_class = 1) v ON (ap.id = v.trans_id) @@ -230,7 +231,8 @@ BEGIN UNION SELECT ar.id, invnumber, transdate, amount, entity_id, paid, curr, 2 as invoice_class, - entity_credit_account, on_hold, v.batch_id + entity_credit_account, on_hold, v.batch_id, + approved FROM ar LEFT JOIN (select * from voucher where batch_class = 2) v ON (ar.id = v.trans_id) @@ -251,6 +253,7 @@ BEGIN GROUP BY trans_id) p ON (a.id = p.trans_id) WHERE a.batch_id = in_batch_id OR (a.invoice_class = in_account_class + AND a.approved AND c.business_id = coalesce(in_business_id, c.business_id) AND ((a.transdate >= COALESCE(in_date_from, a.transdate) diff --git a/sql/modules/test/Payment.sql b/sql/modules/test/Payment.sql new file mode 100644 index 00000000..e8280aa7 --- /dev/null +++ b/sql/modules/test/Payment.sql @@ -0,0 +1,76 @@ +BEGIN; +\i Base.sql + +INSERT INTO entity (name, entity_class, control_code) +VALUES ('Testing.....', 3, '_TESTING.....'); + +DELETE FROM users WHERE username = CURRENT_USER; + +INSERT INTO users (entity_id, username) +SELECT currval('entity_id_seq'), CURRENT_USER; + +INSERT INTO person(first_name, last_name, entity_id) +VALUES ('test', 'test', currval('entity_id_seq')); + +INSERT INTO entity_employee(entity_id, person_id) +VALUES (currval('entity_id_seq'), currval('person_id_seq')); + +INSERT INTO chart (accno, description, charttype, category, link) +VALUES ('00001', 'testing', 'A', 'L', 'AP'); +INSERT INTO chart (accno, description, charttype, category, link) +VALUES ('00002', 'testing2', 'A', 'E', 'AP'); + +INSERT INTO session (users_id, last_used, token, transaction_id) +values (currval('users_id_seq'), now(), md5('test2'), 2); + +INSERT INTO test_result(test_name, success) +SELECT 'AP Batch created', (SELECT batch_create('test', 'test', 'ap', now()::date)) IS NOT NULL; + +INSERT INTO ap (invnumber, entity_credit_account, approved, amount, netamount, curr) +values ('test_hide', (select min(id) from entity_credit_account where entity_class = 1), false, '100000', '100000', 'USD'); + +INSERT INTO voucher (trans_id, batch_class, batch_id) +VALUES (currval('id'), 1, currval('batch_id_seq')); + +INSERT INTO test_result(test_name, success) +SELECT 'Payment Batch created', (SELECT batch_create('test', 'test', 'ap', now()::date)) IS NOT NULL; + +INSERT INTO ap (invnumber, entity_credit_account, approved, amount, netamount, curr, transdate) +values ('test_show', (select min(id) from entity_credit_account where entity_class = 1), false, '100000', '100000', 'USD', now()::date); + +INSERT INTO acc_trans (approved, transdate, amount, trans_id, chart_id) +VALUES (true, now()::date, '100000', currval('id'), (select id from chart where accno = '00001')); + +INSERT INTO acc_trans (approved, transdate, amount, trans_id, chart_id) +VALUES (true, now()::date, '-100000', currval('id'), (select id from chart where accno = '00002')); + +INSERT INTO voucher (trans_id, batch_class, batch_id) +VALUES (currval('id'), 1, currval('batch_id_seq')); + +CREATE FUNCTION test_convert_array(anyarray) RETURNS text AS +' + SELECT array_to_string($1, ''::''); +' LANGUAGE SQL; + +INSERT INTO test_result(test_name, success) +VALUES ('Batch Voucher In Payment Selection', + (SELECT test_convert_array(invoices) LIKE '%::test_show::%' + FROM + ( +SELECT invoices FROM payment_get_all_contact_invoices(1, NULL, 'USD', NULL, NULL, currval('batch_id_seq')::int, '00001', (select meta_number from entity_credit_account order by id asc limit 1)) +)p)); + +INSERT INTO test_result(test_name, success) +VALUES ('Non-Batch Voucher Not In Payment Selection', + (SELECT test_convert_array(invoices) NOT LIKE '%::test_hide::%' + FROM + (SELECT invoices FROM payment_get_all_contact_invoices(1, NULL, 'USD', NULL, NULL, currval('batch_id_seq')::int, '00001', (select meta_number from entity_credit_account order by id asc limit 1)))p )); + +SELECT * FROM TEST_RESULT; + +SELECT (select count(*) from test_result where success is true) +|| ' tests passed and ' +|| (select count(*) from test_result where success is not true) +|| ' failed' as message; + +ROLLBACK; -- cgit v1.2.3