mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
0d86be6d2a
This fixes memory leaks that are only present in testing code. Not very useful on itself, but it does make it easier to fix memory leaks and other AddressSanitizer problems in actual gnucash code later.
148 lines
4.2 KiB
C++
148 lines
4.2 KiB
C++
/***************************************************************************
|
|
* test-lots.c
|
|
*
|
|
* Copyright (C) 2003 Linas Vepstas <linas@linas.org>
|
|
****************************************************************************/
|
|
/*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
* 02110-1301, USA.
|
|
*/
|
|
/**
|
|
* @file test-lots.c
|
|
* @brief Minimal test to see if automatic lot scrubbing works.
|
|
* @author Linas Vepstas <linas@linas.org>
|
|
*/
|
|
#include <glib.h>
|
|
|
|
#include <config.h>
|
|
#include <ctype.h>
|
|
#include "qof.h"
|
|
#include "Account.h"
|
|
#include "gnc-lot.h"
|
|
#include "Scrub3.h"
|
|
#include "cashobjects.h"
|
|
#include "test-stuff.h"
|
|
#include "test-engine-stuff.h"
|
|
#include "Transaction.h"
|
|
|
|
static gint transaction_num = 32;
|
|
static gint max_iterate = 1;
|
|
|
|
|
|
static void
|
|
test_lot_kvp ()
|
|
{
|
|
QofSession *sess = get_random_session ();
|
|
QofBook *book = qof_session_get_book (sess);
|
|
GNCLot *lot = gnc_lot_new (book);
|
|
|
|
// title
|
|
g_assert_cmpstr (gnc_lot_get_title (lot), ==, NULL);
|
|
|
|
gnc_lot_set_title (lot, "");
|
|
g_assert_cmpstr (gnc_lot_get_title (lot), ==, "");
|
|
|
|
gnc_lot_set_title (lot, "doc");
|
|
g_assert_cmpstr (gnc_lot_get_title (lot), ==, "doc");
|
|
|
|
gnc_lot_set_title (lot, "unset");
|
|
g_assert_cmpstr (gnc_lot_get_title (lot), ==, "unset");
|
|
|
|
gnc_lot_set_title (lot, NULL);
|
|
g_assert_cmpstr (gnc_lot_get_title (lot), ==, NULL);
|
|
|
|
// notes
|
|
g_assert_cmpstr (gnc_lot_get_notes (lot), ==, NULL);
|
|
|
|
gnc_lot_set_notes (lot, "");
|
|
g_assert_cmpstr (gnc_lot_get_notes (lot), ==, "");
|
|
|
|
gnc_lot_set_notes (lot, "doc");
|
|
g_assert_cmpstr (gnc_lot_get_notes (lot), ==, "doc");
|
|
|
|
gnc_lot_set_notes (lot, "unset");
|
|
g_assert_cmpstr (gnc_lot_get_notes (lot), ==, "unset");
|
|
|
|
gnc_lot_set_notes (lot, NULL);
|
|
g_assert_cmpstr (gnc_lot_get_notes (lot), ==, NULL);
|
|
|
|
gnc_lot_destroy (lot);
|
|
qof_session_destroy (sess);
|
|
}
|
|
|
|
static void
|
|
run_test (void)
|
|
{
|
|
QofSession *sess;
|
|
QofBook *book;
|
|
Account *root;
|
|
|
|
/* --------------------------------------------------------- */
|
|
/* In the first test, we will merely try to see if we can run
|
|
* without crashing. We don't check to see if data is good. */
|
|
sess = get_random_session ();
|
|
book = qof_session_get_book (sess);
|
|
do_test ((NULL != book), "create random data");
|
|
|
|
add_random_transactions_to_book (book, transaction_num);
|
|
|
|
root = gnc_book_get_root_account (book);
|
|
xaccAccountTreeScrubLots (root);
|
|
|
|
/* --------------------------------------------------------- */
|
|
/* In the second test, we create an account with unrealized gains,
|
|
* and see if that gets fixed correctly, with the correct balances,
|
|
* and etc.
|
|
* XXX not implemented
|
|
*/
|
|
success ("automatic lot scrubbing lightly tested and seem to work");
|
|
qof_session_destroy (sess);
|
|
|
|
}
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
gint i;
|
|
|
|
qof_init();
|
|
if (!cashobjects_register())
|
|
exit(1);
|
|
|
|
/* Any tests that cause an error or warning to be printed
|
|
* automatically fail! */
|
|
g_log_set_always_fatal((GLogLevelFlags)(G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING));
|
|
/* Set up a reproducible test-case */
|
|
srand(0);
|
|
/* Iterate the test a number of times */
|
|
for (i = 0; i < max_iterate; i++)
|
|
{
|
|
fprintf(stdout, " Lots: %d of %d paired tests . . . \r",
|
|
(i + 1) * 2, max_iterate * 2);
|
|
fflush(stdout);
|
|
run_test ();
|
|
}
|
|
|
|
test_lot_kvp ();
|
|
|
|
/* 'erase' the recurring tag line with dummy spaces. */
|
|
fprintf(stdout, "Lots: Test series complete.\n");
|
|
fflush(stdout);
|
|
print_test_results();
|
|
|
|
qof_close();
|
|
return get_rv();
|
|
}
|