[uim commit] r5445 - sigscheme-trunk/test-c

[codesite-noreply]

Author: yamakenz
Date: Sat Apr 26 14:17:09 2008
New Revision: 5445

Modified:
  sigscheme-trunk/test-c/test-format.c
  sigscheme-trunk/test-c/test-gc-protect-stack.c

Log:
* test-c/test-format.c
* test-c/test-gc-protect-stack.c
 - (main): Fix --system-load-path


Modified: sigscheme-trunk/test-c/test-format.c
==============================================================================
--- sigscheme-trunk/test-c/test-format.c        (original)
+++ sigscheme-trunk/test-c/test-format.c        Sat Apr 26 14:17:09 2008
@@ -105,8 +105,13 @@
main(int argc, char **argv)
{
    tst_suite_info suite = TST_DEFAULT_SUITE_SETUP;
+    const char *my_argv[] = {
+        "dummy",
+        "--system-load-path", TST_SCM_SYSTEM_LOAD_PATH,
+        NULL
+    };

-    scm_initialize(NULL, NULL);
+    scm_initialize(NULL, my_argv);

    scm_gc_protect_with_init(&lst,
                             LIST_5(SCM_TRUE,

Modified: sigscheme-trunk/test-c/test-gc-protect-stack.c
==============================================================================
--- sigscheme-trunk/test-c/test-gc-protect-stack.c      (original)
+++ sigscheme-trunk/test-c/test-gc-protect-stack.c      Sat Apr 26 14:17:09 2008
@@ -168,8 +168,13 @@
main(int argc, char **argv)
{
    tst_suite_info suite = TST_DEFAULT_SUITE_SETUP;
+    const char *my_argv[] = {
+        "dummy",
+        "--system-load-path", TST_SCM_SYSTEM_LOAD_PATH,
+        NULL
+    };

-    scm_initialize(NULL);
+    scm_initialize(NULL, my_argv);

    stack_dir = probe_stack_growth_dir();
    fvv_internal = fvv;