Work on single-update test.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5674 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2001-10-17 10:48:57 +00:00
parent 9d6304462a
commit 7fdfb02778

View File

@@ -226,27 +226,18 @@ test_updates (GNCSession *session, const char *db_name, const char *mode,
/* make_random_changes_to_session (session); */ /* make_random_changes_to_session (session); */
{ {
Account *account; Account *account;
Account *new_account;
AccountGroup *group;
GList *list;
account = xaccGroupGetAccount (gnc_book_get_group (gnc_session_get_book (session)), 0); group = gnc_book_get_group (gnc_session_get_book (session));
list = xaccGroupGetSubAccounts (group);
if (account) account = g_list_last (list)->data;
{
xaccAccountBeginEdit (account);
switch (xaccAccountGetType (account)) new_account = get_random_account (session);
{
case BANK:
xaccAccountSetType (account, CHECKING);
break;
default:
xaccAccountSetType (account, BANK);
break;
}
xaccAccountCommitEdit (account); xaccAccountInsertSubAccount (account, new_account);
}
else
failure ("no account");
} }
if (!multi_user) if (!multi_user)
@@ -343,8 +334,10 @@ test_mode (const char *db_name, const char *mode,
static void static void
run_test (void) run_test (void)
{ {
#if 1
if (!test_mode ("single_file", "single-file", FALSE, FALSE)) if (!test_mode ("single_file", "single-file", FALSE, FALSE))
return; return;
#endif
if (!test_mode ("single_update", "single-update", TRUE, FALSE)) if (!test_mode ("single_update", "single-update", TRUE, FALSE))
return; return;
@@ -385,6 +378,5 @@ int
main (int argc, char ** argv) main (int argc, char ** argv)
{ {
gh_enter (argc, argv, guile_main); gh_enter (argc, argv, guile_main);
return 0; return 0;
} }