diff --git a/guile/tests/meson.build b/guile/tests/meson.build index 7117a206..a2793454 100644 --- a/guile/tests/meson.build +++ b/guile/tests/meson.build @@ -1,4 +1,4 @@ -## Copyright (C) 2021 Dirk-Jan C. Binnema +## Copyright (C) 2022 Dirk-Jan C. Binnema ## ## 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 @@ -15,13 +15,16 @@ ## Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +guile_load_path=':'.join([ + join_paths(meson.source_root(), 'guile'), + join_paths(meson.current_build_dir(), '..')]) + test('test-mu-guile', executable('test-mu-guile', 'test-mu-guile.cc', install: false, cpp_args: [ '-DABS_SRCDIR="' + meson.current_source_dir() + '"', - '-DMU_GUILE_LIBRARY_PATH="' + guile_builddir + '"', - '-DMU_GUILE_MODULE_PATH="' + guile_builddir + '"' + '-DGUILE_LOAD_PATH="' + guile_load_path + '"' ], dependencies: [glib_dep, lib_mu_dep, lib_test_mu_common_dep])) diff --git a/guile/tests/test-mu-guile.cc b/guile/tests/test-mu-guile.cc index 7ffc1128..c0e145b4 100644 --- a/guile/tests/test-mu-guile.cc +++ b/guile/tests/test-mu-guile.cc @@ -1,5 +1,5 @@ /* -** Copyright (C) 2012-2021 Dirk-Jan C. Binnema +** Copyright (C) 2012-2022 Dirk-Jan C. Binnema ** ** 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 @@ -40,13 +40,13 @@ fill_database(void) tmpdir = test_mu_common_get_random_tmpdir(); cmdline = g_strdup_printf("/bin/sh -c '" - "%s init --muhome=%s --maildir=%s --quiet; " - "%s index --muhome=%s --quiet'", - MU_PROGRAM, - tmpdir, - MU_TESTMAILDIR2, - MU_PROGRAM, - tmpdir); + "%s init --muhome=%s --maildir=%s --quiet; " + "%s index --muhome=%s --quiet'", + MU_PROGRAM, + tmpdir, + MU_TESTMAILDIR2, + MU_PROGRAM, + tmpdir); if (g_test_verbose()) g_print("%s\n", cmdline); @@ -67,17 +67,17 @@ test_something(const char* what) char *dir, *cmdline; gint result; + + g_setenv("GUILE_AUTO_COMPILE", "0", TRUE); + g_setenv("GUILE_LOAD_PATH", GUILE_LOAD_PATH, TRUE); + dir = fill_database(); - cmdline = g_strdup_printf("GUILE_AUTO_COMPILE=0 " - "LD_LIBRARY_PATH=%s:$LD_LIBRARY_PATH " - "%s -q -L %s -e main %s/test-mu-guile.scm " - "--muhome=%s --test=%s", - MU_GUILE_LIBRARY_PATH, - GUILE_BINARY, - MU_GUILE_MODULE_PATH, - ABS_SRCDIR, - dir, - what); + cmdline = g_strdup_printf("%s -q -e main %s/test-mu-guile.scm " + "--muhome=%s --test=%s", + GUILE_BINARY, + ABS_SRCDIR, + dir, + what); if (g_test_verbose()) g_print("cmdline: %s\n", cmdline); @@ -121,10 +121,10 @@ main(int argc, char* argv[]) g_test_add_func("/guile/stats", test_mu_guile_stats); g_log_set_handler(NULL, - (GLogLevelFlags)(G_LOG_LEVEL_MASK | G_LOG_LEVEL_WARNING | - G_LOG_FLAG_FATAL | G_LOG_FLAG_RECURSION), - (GLogFunc)black_hole, - NULL); + (GLogLevelFlags)(G_LOG_LEVEL_MASK | G_LOG_LEVEL_WARNING | + G_LOG_FLAG_FATAL | G_LOG_FLAG_RECURSION), + (GLogFunc)black_hole, + NULL); rv = g_test_run();