De-guilify test-xml-commodity.c

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14618 57a11ea4-9604-0410-9ed3-97b8803252fd

src/backend/file/test/test-xml-commodity.c

@@ -222,11 +222,10 @@ test_real_commodity(const char *tag, gpointer globaldata, gpointer data)
     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 ();
 
@@ -244,10 +243,3 @@ guile_main (void *closure, int argc, char **argv)
     print_test_results();
     exit(get_rv());
 }
-
-int
-main (int argc, char ** argv)
-{
-  scm_boot_guile (argc, argv, guile_main, NULL);
-  return 0;
-}