5 #include "guile-mappings.h"
7 #include "engine-helpers-guile.h"
8 #include "gnc-module.h"
10 #include "test-stuff.h"
16 test_query (Query *q, SCM val2str)
22 scm_q = gnc_query2scm (q);
23 args = scm_cons (scm_q, SCM_EOL);
24 str_q = scm_apply (val2str, args, SCM_EOL);
26 args = scm_cons (scm_from_utf8_string (
"'"), scm_cons (str_q, SCM_EOL));
27 str_q = scm_string_append (args);
29 scm_display (str_q, SCM_UNDEFINED);
30 scm_newline (SCM_UNDEFINED);
31 scm_newline (SCM_UNDEFINED);
41 val2str = scm_c_eval_string (
"gnc:value->string");
42 g_return_if_fail (scm_is_procedure (val2str));
44 for (i = 0; i < count; i++)
46 q = get_random_query ();
47 test_query (q, val2str);
54 main_helper (
void *closure,
int argc,
char **argv)
58 gnc_module_load(
"gnucash/engine", 0);
59 gnc_module_load(
"gnucash/app-utils", 0);
62 count = atoi (argv[1]);
71 print_test_results ();
77 main (
int argc,
char **argv)
79 scm_boot_guile (argc, argv, main_helper, NULL);
void xaccLogDisable(void)
void qof_query_destroy(QofQuery *q)
API for the transaction logger.