[Gnucash-changes] r14356 - gnucash/branches/register-rewrite/src/backend/file/test - Un-libguile-ify test-xml-commodity.

[Chris Shoemaker]

Author: chris
Date: 2006-06-12 21:29:15 -0400 (Mon, 12 Jun 2006)
New Revision: 14356
Trac: http://svn.gnucash.org/trac/changeset/14356

Modified:
   gnucash/branches/register-rewrite/src/backend/file/test/test-xml-commodity.c
Log:
   Un-libguile-ify test-xml-commodity.


Modified: gnucash/branches/register-rewrite/src/backend/file/test/test-xml-commodity.c
===================================================================
--- gnucash/branches/register-rewrite/src/backend/file/test/test-xml-commodity.c	2006-06-13 01:23:37 UTC (rev 14355)
+++ gnucash/branches/register-rewrite/src/backend/file/test/test-xml-commodity.c	2006-06-13 01:29:15 UTC (rev 14356)
@@ -1,7 +1,6 @@
 #include "config.h"
 
 #include <glib.h>
-#include <libguile.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <unistd.h>
@@ -222,12 +221,10 @@
     return TRUE;
 }
 
-static void
-guile_main (void *closure, int argc, char **argv)
+int
+main (int argc, char ** argv)
 {
-    gnc_module_system_init();
-    gnc_module_load("gnucash/engine", 0);
-
+    gnc_engine_init(argc, argv);
     book = qof_book_new ();
 
     if(argc > 1)
@@ -244,10 +241,3 @@
     print_test_results();
     exit(get_rv());
 }
-
-int
-main (int argc, char ** argv)
-{
-  scm_boot_guile (argc, argv, guile_main, NULL);
-  return 0;
-}