mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
126 lines
3.1 KiB
C++
126 lines
3.1 KiB
C++
/***************************************************************************
|
|
* test-load-example-account.c
|
|
*
|
|
* Thu Sep 29 22:52:32 2005
|
|
* Copyright 2005 GnuCash team
|
|
****************************************************************************/
|
|
/*
|
|
* 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.
|
|
*/
|
|
extern "C"
|
|
{
|
|
#include "config.h"
|
|
#include <glib.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <dirent.h>
|
|
|
|
#include "gnc-module.h"
|
|
#include "gnc-engine.h"
|
|
#include "test-stuff.h"
|
|
#include "test-engine-stuff.h"
|
|
}
|
|
|
|
#include <libguile.h>
|
|
#include "test-file-stuff.h"
|
|
#include "io-gncxml-v2.h"
|
|
|
|
#include "io-example-account.h"
|
|
|
|
static const gchar* da_ending = ".gnucash-xea";
|
|
|
|
static void
|
|
test_load_file (const char* filename)
|
|
{
|
|
GncExampleAccount* gea;
|
|
|
|
gea = gnc_read_example_account (filename);
|
|
|
|
if (gea != NULL)
|
|
{
|
|
success ("example account load");
|
|
gnc_destroy_example_account (gea);
|
|
}
|
|
else
|
|
{
|
|
failure_args ("example account load", __FILE__, __LINE__, "for file %s",
|
|
filename);
|
|
}
|
|
}
|
|
|
|
static void
|
|
guile_main (void* closure, int argc, char** argv)
|
|
{
|
|
const char* location = g_getenv ("GNC_ACCOUNT_PATH");
|
|
GSList* list = NULL;
|
|
GDir* ea_dir;
|
|
|
|
if (!location)
|
|
{
|
|
location = "../../../../data/accounts/C";
|
|
}
|
|
|
|
gnc_module_system_init ();
|
|
gnc_module_load ("gnucash/engine", 0);
|
|
|
|
if ((ea_dir = g_dir_open (location, 0, NULL)) == NULL)
|
|
{
|
|
failure ("unable to open ea directory");
|
|
}
|
|
else
|
|
{
|
|
const gchar* entry;
|
|
|
|
while ((entry = g_dir_read_name (ea_dir)) != NULL)
|
|
{
|
|
if (g_str_has_suffix (entry, da_ending))
|
|
{
|
|
gchar* to_open = g_build_filename (location, entry, (gchar*)NULL);
|
|
if (!g_file_test (to_open, G_FILE_TEST_IS_DIR))
|
|
{
|
|
test_load_file (to_open);
|
|
}
|
|
g_free (to_open);
|
|
}
|
|
}
|
|
}
|
|
g_dir_close (ea_dir);
|
|
|
|
{
|
|
list = gnc_load_example_account_list (location);
|
|
|
|
do_test (list != NULL, "gnc_load_example_account_list");
|
|
|
|
gnc_free_example_account_list (list);
|
|
}
|
|
|
|
|
|
print_test_results ();
|
|
exit (get_rv ());
|
|
}
|
|
|
|
int
|
|
main (int argc, char** argv)
|
|
{
|
|
g_setenv ("GNC_UNINSTALLED", "1", TRUE);
|
|
scm_boot_guile (argc, argv, guile_main, NULL);
|
|
exit (get_rv ());
|
|
}
|