mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
More test reorganization.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5181 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
parent
c8199b86ef
commit
3d8d2ccdae
@ -4,3 +4,5 @@ Makefile.in
|
||||
.libs
|
||||
test-load-engine
|
||||
test-commodities
|
||||
test-resolve-file-path
|
||||
test-split-vs-account
|
||||
|
||||
@ -18,7 +18,9 @@ LDADD = \
|
||||
TESTS = \
|
||||
test-load-engine \
|
||||
test-create-account \
|
||||
test-commodities
|
||||
test-commodities \
|
||||
test-resolve-file-path \
|
||||
test-split-vs-account
|
||||
|
||||
TESTS_ENVIRONMENT = \
|
||||
GNC_MODULE_PATH="${top_srcdir}/src/engine" \
|
||||
@ -28,8 +30,14 @@ TESTS_ENVIRONMENT = \
|
||||
|
||||
bin_PROGRAMS = \
|
||||
test-commodities \
|
||||
test-load-engine
|
||||
test-load-engine \
|
||||
test-resolve-file-path \
|
||||
test-split-vs-account
|
||||
|
||||
test_load_engine_SOURCES = test-load-engine.c
|
||||
|
||||
test_commodities_SOURCES = test-commodities.c
|
||||
|
||||
test_resolve_file_path_SOURCES = test-resolve-file-path.c
|
||||
|
||||
test_split_vs_account_SOURCES = test-split-vs-account.c
|
||||
|
||||
535
src/engine/test/test-freq-spec.c
Normal file
535
src/engine/test/test-freq-spec.c
Normal file
@ -0,0 +1,535 @@
|
||||
|
||||
/*
|
||||
* Testing routine added by Ben Stanley bds02@uow.edu.au 20010320
|
||||
* Try to test Joshua Sled's FreqSpec module.
|
||||
*
|
||||
*/
|
||||
|
||||
#include "config.h"
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <glib.h>
|
||||
|
||||
#include "test-stuff.h"
|
||||
#include "FreqSpec.h"
|
||||
|
||||
void test_once()
|
||||
{
|
||||
FreqSpec *fs;
|
||||
guint32 i, start_julian;
|
||||
GDate date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
for( start_julian = 1; start_julian < 1000; ++start_julian ) {
|
||||
g_date_set_julian( &date1, start_julian );
|
||||
|
||||
xaccFreqSpecSetOnceDate( fs, &date1 );
|
||||
for( i = 0; i <= 2 * start_julian; ++i ) {
|
||||
g_date_set_julian( &date2, start_julian + i );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
do_test( (g_date_compare( &date2, &date1 ) >= 0 &&
|
||||
!g_date_valid( &next_date ) ) ||
|
||||
g_date_compare( &date1, &next_date ) == 0,
|
||||
"once off" );
|
||||
}
|
||||
}
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
void test_daily()
|
||||
{
|
||||
guint32 interval, i, start_julian, j;
|
||||
FreqSpec *fs;
|
||||
GDate date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
g_date_set_dmy( &date1, 1, 1, 2000 );
|
||||
|
||||
start_julian = g_date_julian( &date1 );
|
||||
for( interval = 1; interval < 400; ++interval ) {
|
||||
xaccFreqSpecSetDaily( fs, &date1, interval );
|
||||
for( i = 0; i <= 2 * interval; ++i ) {
|
||||
g_date_set_julian( &date2, start_julian + i );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
do_test_args(
|
||||
g_date_julian( &next_date ) - g_date_julian( &date2 ) ==
|
||||
interval - (i%interval),
|
||||
"daily repeats",
|
||||
__FILE__, __LINE__,
|
||||
"interval = %d days, days from start = %d",
|
||||
interval, i );
|
||||
}
|
||||
}
|
||||
|
||||
/* This tests whether we can correctly generate a sequence of dates,
|
||||
* and end up in the right place. */
|
||||
g_date_set_dmy( &date1, 25, 3, 2001 );
|
||||
for( interval = 1; interval < 20; ++interval ) {
|
||||
xaccFreqSpecSetDaily( fs, &date1, interval );
|
||||
for( j = 0; j < 20; ++j ) {
|
||||
date2 = date1;
|
||||
for( i = 0; i < j; ++i ) {
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
date2 = next_date;
|
||||
}
|
||||
do_test_args( g_date_julian( &date2 ) - g_date_julian( &date1 ) == interval*j,
|
||||
"daily repeats end up in the right place",
|
||||
__FILE__, __LINE__, "interval = %d days, iters = %d",
|
||||
interval, j );
|
||||
}
|
||||
}
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
void test_weekly()
|
||||
{
|
||||
guint32 interval, i, start_julian, weekday, j;
|
||||
FreqSpec *fs;
|
||||
GDate date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
/* Use this to test any specific cases which fail,
|
||||
* for easy access in the debugger. */
|
||||
/*
|
||||
g_date_set_dmy( &date1, 2, 1, 1 );
|
||||
xaccFreqSpecSetWeekly( fs, &date1, 1 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
g_date_set_julian( &date2, start_julian + 6 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
*/
|
||||
/* date2 should now be 9/1/1, julian date 9. */
|
||||
|
||||
for( weekday = 1; weekday <= 7; ++weekday ) {
|
||||
g_date_set_dmy( &date1, weekday, 1, 1 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
for( interval = 1; interval <= 52; ++interval ) {
|
||||
xaccFreqSpecSetWeekly( fs, &date1, interval );
|
||||
for( i = 0; i <= 2 * 7 * interval; ++i ) {
|
||||
g_date_set_julian( &date2, start_julian + i );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
do_test_args(
|
||||
g_date_julian( &next_date ) - g_date_julian( &date2 ) ==
|
||||
interval*7 - (i%(interval*7)),
|
||||
"weekly repeats",
|
||||
__FILE__, __LINE__,
|
||||
"weekday = %d, interval = %d weeks, days from start = %d",
|
||||
weekday, interval, i );
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* This tests whether we can correctly generate a sequence of dates,
|
||||
* and end up in the right place. */
|
||||
g_date_set_dmy( &date1, 25, 3, 2001 );
|
||||
for( interval = 1; interval < 20; ++interval ) {
|
||||
xaccFreqSpecSetWeekly( fs, &date1, interval );
|
||||
for( j = 0; j < 2*53; ++j ) {
|
||||
date2 = date1;
|
||||
for( i = 0; i < j; ++i ) {
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
date2 = next_date;
|
||||
}
|
||||
do_test_args( g_date_julian( &date2 ) - g_date_julian( &date1 ) == interval*7*j,
|
||||
"weekly repeats end up in the right place",
|
||||
__FILE__, __LINE__, "interval = %d weeks, iters = %d",
|
||||
interval, j );
|
||||
}
|
||||
}
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
void test_monthly()
|
||||
{
|
||||
guint32 interval, i, start_julian, monthday, month, j, day_of_year;
|
||||
FreqSpec *fs;
|
||||
GDate date0, date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
/* Use this to test any specific cases which fail,
|
||||
* for easy access in the debugger. */
|
||||
|
||||
/*
|
||||
g_date_set_dmy( &date1, 1, 1, 1 );
|
||||
xaccFreqSpecSetMonthly( fs, &date1, 2 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
g_date_set_julian( &date2, start_julian + 0 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
*/
|
||||
|
||||
for( monthday = 1; monthday <= 28; ++monthday ) {
|
||||
for( month = 1; month <= 12; ++month ) {
|
||||
g_date_set_dmy( &date1, monthday, month, 1 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
for( interval = 1; interval <= 24; ++interval ) {
|
||||
xaccFreqSpecSetMonthly( fs, &date1, interval );
|
||||
for( i = 0; i <= 2 * 31 * interval; ++i ) {
|
||||
g_date_set_julian( &date2, start_julian + i );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
do_test_args(
|
||||
g_date_day( &next_date ) == g_date_day( &date1 ),
|
||||
"monthly repeats - check day",
|
||||
__FILE__, __LINE__,
|
||||
"monthday = %d, month = %d, interval = %d months, days from start = %d",
|
||||
monthday, month, interval, i );
|
||||
do_test_args(
|
||||
( g_date_month( &next_date ) + 12 * (g_date_year( &next_date )-1) - 1) %
|
||||
interval == (month-1) % interval,
|
||||
"monthly repeats - check month",
|
||||
__FILE__, __LINE__,
|
||||
"monthday = %d, month = %d, interval = %d months, days from start = %d",
|
||||
monthday, month, interval, i );
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* This tests whether we can correctly generate a sequence of dates,
|
||||
* and end up in the right place. */
|
||||
g_date_set_dmy( &date0, 1, 1, 2000 );
|
||||
for( day_of_year = 1; day_of_year <= 365*5; ++day_of_year ) {
|
||||
g_date_set_julian( &date1, g_date_julian( &date0 ) + day_of_year-1 );
|
||||
for( interval = 1; interval < 20; ++interval ) {
|
||||
xaccFreqSpecSetMonthly( fs, &date1, interval );
|
||||
for( j = 1; j < 20; ++j ) {
|
||||
date2 = date1;
|
||||
for( i = 0; i < j; ++i ) {
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
date2 = next_date;
|
||||
}
|
||||
date2 = date1;
|
||||
g_date_add_months( &date2, interval * j );
|
||||
do_test_args( g_date_compare( &date2, &next_date ) == 0,
|
||||
"monthly repeats end up in the right place",
|
||||
__FILE__, __LINE__, "interval = %d months, iters = %d, day_of_year = %d",
|
||||
interval, j, day_of_year );
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
void test_month_relative()
|
||||
{
|
||||
guint32 interval, i, start_julian, monthday, month, j, day_of_year;
|
||||
FreqSpec *fs;
|
||||
GDate date0, date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
/* Use this to test any specific cases which fail,
|
||||
* for easy access in the debugger. */
|
||||
|
||||
/*
|
||||
g_date_set_dmy( &date1, 1, 1, 1 );
|
||||
xaccFreqSpecSetMonthRelative( fs, &date1, 2 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
g_date_set_julian( &date2, start_julian + 0 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
*/
|
||||
|
||||
/* This loop does not test for days/occurences which can
|
||||
* fail to fall in the same month. */
|
||||
for( monthday = 1; monthday <= 28; ++monthday ) {
|
||||
for( month = 1; month <= 12; ++month ) {
|
||||
g_date_set_dmy( &date1, monthday, month, 1 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
for( interval = 1; interval <= 24; ++interval ) {
|
||||
xaccFreqSpecSetMonthRelative( fs, &date1, interval );
|
||||
for( i = 0; i <= 2 * 31 * interval; ++i ) {
|
||||
g_date_set_julian( &date2, start_julian + i );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
do_test_args(
|
||||
g_date_weekday( &next_date ) == g_date_weekday( &date1 ),
|
||||
"month relative repeats - check weekday",
|
||||
__FILE__, __LINE__,
|
||||
"monthday = %d, month = %d, interval = %d months, days from start = %d, weekday = %d",
|
||||
monthday, month, interval, i, g_date_weekday( &date1 ) );
|
||||
do_test_args(
|
||||
(g_date_day( &next_date )-1)/7 == (g_date_day( &date1 )-1)/7,
|
||||
"month relative repeats - check occurrence",
|
||||
__FILE__, __LINE__,
|
||||
"monthday = %d, month = %d, interval = %d months, days from start = %d, occurrence = %d",
|
||||
monthday, month, interval, i, (g_date_day( &date1 )-1)/7 );
|
||||
do_test_args(
|
||||
( g_date_month( &next_date ) + 12 * (g_date_year( &next_date )-1) - 1) %
|
||||
interval == (month-1) % interval,
|
||||
"month relative repeats - check month",
|
||||
__FILE__, __LINE__,
|
||||
"monthday = %d, month = %d, interval = %d months, days from start = %d",
|
||||
monthday, month, interval, i );
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* This tests whether we can correctly generate a sequence of dates,
|
||||
* and end up in the right place. */
|
||||
/* Unfortunately, I think that this is going to require specifically
|
||||
* written test cases, for the case where the repeat falls in the next
|
||||
* (or subsequent) month in the cycle.... */
|
||||
|
||||
g_date_set_dmy( &date1, 1, 1, 2000 );
|
||||
for( interval = 1; interval < 20; ++interval ) {
|
||||
xaccFreqSpecSetMonthRelative( fs, &date1, interval );
|
||||
for( j = 1; j < 20; ++j ) {
|
||||
date2 = date1;
|
||||
for( i = 0; i < j; ++i ) {
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
date2 = next_date;
|
||||
}
|
||||
date2 = date1;
|
||||
g_date_add_months( &date2, interval * j );
|
||||
do_test_args( g_date_month( &date2 ) == g_date_month( &next_date ),
|
||||
"month_relative repeats end up in the right place - month",
|
||||
__FILE__, __LINE__, "interval = %d months, iters = %d, weekday = %d",
|
||||
interval, j, g_date_weekday( &date1 ) );
|
||||
do_test_args( g_date_weekday( &date1 ) == g_date_weekday( &next_date ),
|
||||
"month_relative repeats end up in the right place - weekday",
|
||||
__FILE__, __LINE__, "interval = %d months, iters = %d, weekday = %d",
|
||||
interval, j, g_date_weekday( &date1 ) );
|
||||
do_test_args( (g_date_day( &date2 )-1)/7 == (g_date_day( &next_date )-1)/7,
|
||||
"month_relative repeats end up in the right place - occurrence",
|
||||
__FILE__, __LINE__, "interval = %d months, iters = %d, weekday = %d",
|
||||
interval, j, g_date_weekday( &date1 ) );
|
||||
}
|
||||
}
|
||||
|
||||
/* also test oddball cases */
|
||||
/* This is the fifth Sunday of a five Sunday month. */
|
||||
g_date_set_dmy( &date0, 29, 4, 2001 );
|
||||
xaccFreqSpecSetMonthRelative( fs, &date0, 1 );
|
||||
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &next_date );
|
||||
g_date_set_dmy( &date1, 29, 7, 2001 );
|
||||
do_test( g_date_compare( &next_date, &date1 ) == 0, "find five-sunday months" );
|
||||
date2 = next_date;
|
||||
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
g_date_set_dmy( &date1, 30, 9, 2001 );
|
||||
do_test( g_date_compare( &next_date, &date1 ) == 0, "find five-sunday months" );
|
||||
date2 = next_date;
|
||||
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
g_date_set_dmy( &date1, 30, 12, 2001 );
|
||||
do_test( g_date_compare( &next_date, &date1 ) == 0, "find five-sunday months" );
|
||||
date2 = next_date;
|
||||
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
g_date_set_dmy( &date1, 31, 3, 2002 );
|
||||
do_test( g_date_compare( &next_date, &date1 ) == 0, "find five-sunday months" );
|
||||
date2 = next_date;
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
void test_composite()
|
||||
{
|
||||
guint32 interval, i, start_julian, monthday, month, j, day_of_year;
|
||||
FreqSpec *fs, *fs2;
|
||||
GDate date0, date1, date2, next_date;
|
||||
|
||||
fs = xaccFreqSpecMalloc();
|
||||
|
||||
/* Use this to test any specific cases which fail,
|
||||
* for easy access in the debugger. */
|
||||
|
||||
/*
|
||||
g_date_set_dmy( &date1, 1, 1, 1 );
|
||||
xaccFreqSpecSetMonthly( fs, &date1, 2 );
|
||||
start_julian = g_date_julian( &date1 );
|
||||
g_date_set_julian( &date2, start_julian + 0 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date2, &next_date );
|
||||
*/
|
||||
|
||||
/* I have not tested this type as thoroughly
|
||||
* because I expect that the elements from which it
|
||||
* has been constructed have been pretty much tortured
|
||||
* in the previous tests. I don't expect anything strange
|
||||
* to go on here, at least for now... Maybe I'll put
|
||||
* in more extensive tests later. */
|
||||
|
||||
xaccFreqSpecSetComposite( fs );
|
||||
|
||||
fs2 = xaccFreqSpecMalloc();
|
||||
g_date_set_dmy( &date0, 29, 3, 2001 ); /* Wednesday */
|
||||
xaccFreqSpecSetWeekly( fs2, &date0, 2 );
|
||||
xaccFreqSpecCompositeAdd( fs, fs2 );
|
||||
|
||||
fs2 = xaccFreqSpecMalloc();
|
||||
g_date_set_dmy( &date0, 3, 4, 2001 ); /* Tuesday */
|
||||
xaccFreqSpecSetWeekly( fs2, &date0, 2 );
|
||||
xaccFreqSpecCompositeAdd( fs, fs2 );
|
||||
|
||||
fs2 = xaccFreqSpecMalloc();
|
||||
g_date_set_dmy( &date0, 7, 4, 2001 ); /* Saturday */
|
||||
xaccFreqSpecSetWeekly( fs2, &date0, 2 );
|
||||
xaccFreqSpecCompositeAdd( fs, fs2 );
|
||||
|
||||
fs2 = 0;
|
||||
|
||||
/* OK - now let's iterate it and see if we get the right sequence of dates. */
|
||||
g_date_set_dmy( &date0, 26, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 29, 3, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "first date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 27, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 29, 3, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "first date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 28, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 29, 3, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "first date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 29, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 3, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "second date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 30, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 3, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "second date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 31, 3, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 3, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "second date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 1, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 3, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "second date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 2, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 3, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "second date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 3, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 7, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "third date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 4, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 7, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "third date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 5, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 7, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "third date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 6, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 7, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "third date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 7, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 12, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fourth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 8, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 12, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fourth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 9, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 12, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fourth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 10, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 12, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fourth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 11, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 12, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fourth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 12, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 17, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fifth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 13, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 17, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fifth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 14, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 17, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fifth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 15, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 17, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fifth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 16, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 17, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "fifth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 17, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 21, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "sixth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 18, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 21, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "sixth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 19, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 21, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "sixth date in sequence" );
|
||||
|
||||
g_date_set_dmy( &date0, 20, 4, 2001 );
|
||||
xaccFreqSpecGetNextInstance( fs, &date0, &date1 );
|
||||
g_date_set_dmy( &date2, 21, 4, 2001 );
|
||||
do_test( g_date_compare( &date1, &date2 ) == 0, "sixth date in sequence" );
|
||||
|
||||
xaccFreqSpecFree(fs);
|
||||
}
|
||||
|
||||
int
|
||||
main( int argc, char* argv[] )
|
||||
{
|
||||
g_log_set_always_fatal( G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING );
|
||||
|
||||
#if 0
|
||||
set_success_print(TRUE);
|
||||
#endif
|
||||
|
||||
test_once();
|
||||
|
||||
test_daily();
|
||||
|
||||
test_weekly();
|
||||
|
||||
test_monthly();
|
||||
|
||||
test_month_relative();
|
||||
|
||||
test_composite();
|
||||
|
||||
print_test_results();
|
||||
return get_rv();
|
||||
}
|
||||
72
src/engine/test/test-resolve-file-path.c
Normal file
72
src/engine/test/test-resolve-file-path.c
Normal file
@ -0,0 +1,72 @@
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
#include <glib.h>
|
||||
|
||||
#include "test-stuff.h"
|
||||
#include "gnc-book.h"
|
||||
|
||||
struct test_strings_struct
|
||||
{
|
||||
char *input;
|
||||
char *output;
|
||||
int prefix_home;
|
||||
};
|
||||
|
||||
typedef struct test_strings_struct test_strings;
|
||||
|
||||
test_strings strs[] = {
|
||||
{ "/.gnucash/test-account-name", "/.gnucash/test-account-name", 1 },
|
||||
{ "/tmp/test-account-name2", "/tmp/test-account-name2", 0 },
|
||||
{ "postgres://localhost/foo/bar", "/.gnucash/data/postgres:,,localhost,foo,bar", 2 },
|
||||
{ "file:/tmp/test-account-name3", "/tmp/test-account-name3", 0 },
|
||||
{ NULL, NULL, 0 },
|
||||
};
|
||||
|
||||
static const char*
|
||||
get_home_dir()
|
||||
{
|
||||
return getenv("HOME");
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char **argv)
|
||||
{
|
||||
int i;
|
||||
|
||||
for(i = 0; strs[i].input != NULL; i++)
|
||||
{
|
||||
char *daout;
|
||||
char *dain;
|
||||
char *wantout;
|
||||
|
||||
if(strs[i].prefix_home == 1)
|
||||
{
|
||||
dain = g_strdup_printf("%s/%s", get_home_dir(), strs[i].input);
|
||||
wantout = g_strdup_printf("%s/%s", get_home_dir(),
|
||||
strs[i].output);
|
||||
}
|
||||
else if(strs[i].prefix_home == 2)
|
||||
{
|
||||
dain = g_strdup(strs[i].input);
|
||||
wantout = g_strdup_printf("%s%s", get_home_dir(),
|
||||
strs[i].output);
|
||||
}
|
||||
else
|
||||
{
|
||||
dain = g_strdup(strs[i].input);
|
||||
wantout = g_strdup(strs[i].output);
|
||||
}
|
||||
|
||||
daout = xaccResolveFilePath(dain);
|
||||
do_test_args(strcmp(daout, wantout) == 0, "xaccResolveFilePath",
|
||||
__FILE__, __LINE__,
|
||||
"%s (%s) vs %s", daout, dain, wantout);
|
||||
g_free(dain);
|
||||
g_free(wantout);
|
||||
g_free(daout);
|
||||
}
|
||||
print_test_results();
|
||||
return get_rv();
|
||||
}
|
||||
|
||||
102
src/engine/test/test-split-vs-account.c
Normal file
102
src/engine/test/test-split-vs-account.c
Normal file
@ -0,0 +1,102 @@
|
||||
|
||||
#include <glib.h>
|
||||
|
||||
#include "GNCIdP.h"
|
||||
|
||||
#include "Account.h"
|
||||
#include "test-engine-stuff.h"
|
||||
#include "test-stuff.h"
|
||||
#include "Transaction.h"
|
||||
#include "guid.h"
|
||||
|
||||
|
||||
static gboolean
|
||||
is_null_guid(const GUID *id)
|
||||
{
|
||||
int i;
|
||||
for(i = 0; i < 16; i++)
|
||||
{
|
||||
if(id->data[i] != '\0')
|
||||
{
|
||||
return FALSE;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char **argv)
|
||||
{
|
||||
Account *act1;
|
||||
Account *act2;
|
||||
Split *spl;
|
||||
gnc_numeric num;
|
||||
|
||||
xaccGUIDInit();
|
||||
|
||||
act1 = get_random_account();
|
||||
if(!act1)
|
||||
{
|
||||
failure("act1 not created");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
act2 = get_random_account();
|
||||
if(!act2)
|
||||
{
|
||||
failure("act2 not created");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
num = get_random_gnc_numeric();
|
||||
spl = get_random_split(num);
|
||||
if(!spl)
|
||||
{
|
||||
failure("spl not created");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
xaccSplitSetAccount(spl, act1);
|
||||
|
||||
if(act1 != xaccSplitGetAccount(spl))
|
||||
{
|
||||
failure("xaccSplitSetAccount is broken");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
if(!guid_equal(xaccAccountGetGUID(act1), xaccSplitGetAccountGUID(spl)))
|
||||
{
|
||||
failure("xaccSplitGetAccountGUID "
|
||||
"after xaccSplitSetAccount failed");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
xaccSplitSetAccountGUID(spl, *xaccAccountGetGUID(act2));
|
||||
|
||||
if(act2 != xaccSplitGetAccount(spl))
|
||||
{
|
||||
failure("xaccSplitSetAccountGUID is broken");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
xaccSplitSetAccount(spl, NULL);
|
||||
|
||||
if(xaccSplitGetAccount(spl))
|
||||
{
|
||||
failure_args("xaccSplitSetAccount(NULL)",
|
||||
__FILE__, __LINE__, "account not NULL");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
if(!is_null_guid(xaccSplitGetAccountGUID(spl)))
|
||||
{
|
||||
failure_args("xaccSplitSetAccount(NULL)",
|
||||
__FILE__, __LINE__, "account guid not NULL");
|
||||
return(get_rv());
|
||||
}
|
||||
|
||||
success("split account crap seems to work");
|
||||
|
||||
print_test_results();
|
||||
return(get_rv());
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user