IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix bugs in test

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6249 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2001-12-05 05:29:50 +00:00
parent 5353d5c2be
commit 2bbd1f43e9
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/engine/test/test-period.c
View File

@ -24,9 +24,11 @@
static void
run_test (void)
{
AccountGroup *grp;
Account * acc;
GNCSession *sess;
GNCBook *openbook, *closedbook;
AccountGroup *grp;
AccountList *acclist, *anode;
Account * acc = NULL;
Timespec ts;
SplitList *splist;
Split *sfirst, *slast;
@ -41,25 +43,31 @@ run_test (void)
exit(get_rv());
}
openbook = gnc_book_new ();
sess = get_random_session ();
openbook = gnc_session_get_book (sess);
if (!openbook)
{
failure("book not created");
exit(get_rv());
}
grp = get_random_group (openbook);
if(!grp)
add_random_transactions_to_book (openbook, 120);
grp = gnc_book_get_group (openbook);
acclist = xaccGroupGetSubAccounts (grp);
for (anode=acclist; anode; anode=anode->next)
{
failure("group not created");
exit(get_rv());
int ns;
acc = anode->data;
ns = g_list_length (xaccAccountGetSplitList (acc));
if (2 <= ns) break;
acc = NULL;
}
gnc_book_set_group (openbook, grp);
acc = xaccGroupGetAccount (grp, 0);
if(!acc)
{
failure("group was empty");
failure("group didn't have accounts with enogh splits");
exit(get_rv());
}