Test case for billing info

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2389 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 6 insertions, 0 deletions

diff --git a/sql/modules/test/Company.sql b/sql/modules/test/Company.sql
index d8f1576a..08b2f96b 100644
--- a/sql/modules/test/Company.sql
+++ b/sql/modules/test/Company.sql
@@ -41,6 +41,12 @@ SELECT 'Contact found correctly', count(*) = 1
 FROM eca__list_contacts(currval('entity_credit_account_id_seq')::int) 
 WHERE contact = 'test_c';
 
+INSERT INTO test_result(test_name, success)
+SELECT 'Company_get_billing_info working', count(*) = 1
+FROM company_get_billing_info((select max(id) from entity_credit_account))
+WHERE control_code is not null;
+
+
 SELECT * FROM test_result;