fix bugs in test

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

View File

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