mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-10-31 11:36:18 +01:00
70ee43f1e9
Add SPDX license (but not copyright) headers to all files which follow a certain pattern in their existing non-machine-readable header comment. This commit was entirely generated using the command: ``` git ls-files glib/*.[ch] | xargs perl -0777 -pi -e 's/\n \*\n \* This library is free software; you can redistribute it and\/or\n \* modify it under the terms of the GNU Lesser General Public/\n \*\n \* SPDX-License-Identifier: LGPL-2.1-or-later\n \*\n \* This library is free software; you can redistribute it and\/or\n \* modify it under the terms of the GNU Lesser General Public/igs' ``` Signed-off-by: Philip Withnall <pwithnall@endlessos.org> Helps: #1415
768 lines
24 KiB
C
768 lines
24 KiB
C
/* GLib testing framework runner
|
|
* Copyright (C) 2007 Sven Herzberg
|
|
* Copyright (C) 2007 Tim Janik
|
|
*
|
|
* SPDX-License-Identifier: LGPL-2.1-or-later
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
#include "config.h"
|
|
|
|
#include <glib.h>
|
|
#include <glib-unix.h>
|
|
#include <gstdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
#include <sys/wait.h>
|
|
#include <errno.h>
|
|
#include <signal.h>
|
|
|
|
/* the read buffer size in bytes */
|
|
#define READ_BUFFER_SIZE 4096
|
|
|
|
/* --- prototypes --- */
|
|
static int main_selftest (int argc,
|
|
char **argv);
|
|
static void parse_args (gint *argc_p,
|
|
gchar ***argv_p);
|
|
|
|
/* --- variables --- */
|
|
static GIOChannel *ioc_report = NULL;
|
|
static gboolean gtester_quiet = FALSE;
|
|
static gboolean gtester_verbose = FALSE;
|
|
static gboolean gtester_list_tests = FALSE;
|
|
static gboolean gtester_selftest = FALSE;
|
|
static gboolean gtester_ignore_deprecation = FALSE;
|
|
static gboolean subtest_running = FALSE;
|
|
static gint subtest_exitstatus = 0;
|
|
static gboolean subtest_io_pending = FALSE;
|
|
static gboolean subtest_quiet = TRUE;
|
|
static gboolean subtest_verbose = FALSE;
|
|
static gboolean subtest_mode_fatal = TRUE;
|
|
static gboolean subtest_mode_perf = FALSE;
|
|
static gboolean subtest_mode_quick = TRUE;
|
|
static gboolean subtest_mode_undefined = TRUE;
|
|
static const gchar *subtest_seedstr = NULL;
|
|
static gchar *subtest_last_seed = NULL;
|
|
static GSList *subtest_paths = NULL;
|
|
static GSList *skipped_paths = NULL;
|
|
static GSList *subtest_args = NULL;
|
|
static gboolean testcase_open = FALSE;
|
|
static guint testcase_count = 0;
|
|
static guint testcase_fail_count = 0;
|
|
static const gchar *output_filename = NULL;
|
|
static guint log_indent = 0;
|
|
static gint log_fd = -1;
|
|
|
|
/* --- functions --- */
|
|
static const char*
|
|
sindent (guint n)
|
|
{
|
|
static const char spaces[] = " ";
|
|
gsize l = sizeof (spaces) - 1;
|
|
n = MIN (n, l);
|
|
return spaces + l - n;
|
|
}
|
|
|
|
static void G_GNUC_PRINTF (1, 2)
|
|
test_log_printfe (const char *format,
|
|
...)
|
|
{
|
|
char *result;
|
|
int r;
|
|
va_list args;
|
|
va_start (args, format);
|
|
result = g_markup_vprintf_escaped (format, args);
|
|
va_end (args);
|
|
do
|
|
r = write (log_fd, result, strlen (result));
|
|
while (r < 0 && errno == EINTR);
|
|
g_free (result);
|
|
}
|
|
|
|
static void
|
|
terminate (void)
|
|
{
|
|
kill (getpid(), SIGTERM);
|
|
g_abort();
|
|
}
|
|
|
|
static void
|
|
testcase_close (long double duration,
|
|
gint exit_status,
|
|
guint n_forks)
|
|
{
|
|
gboolean success;
|
|
|
|
g_return_if_fail (testcase_open > 0);
|
|
test_log_printfe ("%s<duration>%.6Lf</duration>\n", sindent (log_indent), duration);
|
|
success = exit_status == G_TEST_RUN_SUCCESS || exit_status == G_TEST_RUN_SKIPPED;
|
|
test_log_printfe ("%s<status exit-status=\"%d\" n-forks=\"%d\" result=\"%s\"/>\n",
|
|
sindent (log_indent), exit_status, n_forks,
|
|
success ? "success" : "failed");
|
|
log_indent -= 2;
|
|
test_log_printfe ("%s</testcase>\n", sindent (log_indent));
|
|
testcase_open--;
|
|
if (gtester_verbose)
|
|
{
|
|
switch (exit_status)
|
|
{
|
|
case G_TEST_RUN_SUCCESS:
|
|
g_print ("OK\n");
|
|
break;
|
|
case G_TEST_RUN_SKIPPED:
|
|
g_print ("SKIP\n");
|
|
break;
|
|
default:
|
|
g_print ("FAIL\n");
|
|
break;
|
|
}
|
|
}
|
|
if (!success && subtest_last_seed)
|
|
g_print ("GTester: last random seed: %s\n", subtest_last_seed);
|
|
if (!success)
|
|
testcase_fail_count += 1;
|
|
if (subtest_mode_fatal && !success)
|
|
terminate();
|
|
}
|
|
|
|
static void
|
|
test_log_msg (GTestLogMsg *msg)
|
|
{
|
|
switch (msg->log_type)
|
|
{
|
|
guint i;
|
|
gchar **strv;
|
|
case G_TEST_LOG_NONE:
|
|
case G_TEST_LOG_START_SUITE:
|
|
case G_TEST_LOG_STOP_SUITE:
|
|
break;
|
|
case G_TEST_LOG_ERROR:
|
|
strv = g_strsplit (msg->strings[0], "\n", -1);
|
|
for (i = 0; strv[i]; i++)
|
|
test_log_printfe ("%s<error>%s</error>\n", sindent (log_indent), strv[i]);
|
|
g_strfreev (strv);
|
|
break;
|
|
case G_TEST_LOG_START_BINARY:
|
|
test_log_printfe ("%s<binary file=\"%s\"/>\n", sindent (log_indent), msg->strings[0]);
|
|
subtest_last_seed = g_strdup (msg->strings[1]);
|
|
test_log_printfe ("%s<random-seed>%s</random-seed>\n", sindent (log_indent), subtest_last_seed);
|
|
break;
|
|
case G_TEST_LOG_LIST_CASE:
|
|
g_print ("%s\n", msg->strings[0]);
|
|
break;
|
|
case G_TEST_LOG_START_CASE:
|
|
testcase_count++;
|
|
if (gtester_verbose)
|
|
{
|
|
gchar *sc = g_strconcat (msg->strings[0], ":", NULL);
|
|
gchar *sleft = g_strdup_printf ("%-68s", sc);
|
|
g_free (sc);
|
|
g_print ("%70s ", sleft);
|
|
g_free (sleft);
|
|
}
|
|
g_return_if_fail (testcase_open == 0);
|
|
testcase_open++;
|
|
test_log_printfe ("%s<testcase path=\"%s\">\n", sindent (log_indent), msg->strings[0]);
|
|
log_indent += 2;
|
|
break;
|
|
case G_TEST_LOG_SKIP_CASE:
|
|
if (FALSE && gtester_verbose) /* enable to debug test case skipping logic */
|
|
{
|
|
gchar *sc = g_strconcat (msg->strings[0], ":", NULL);
|
|
gchar *sleft = g_strdup_printf ("%-68s", sc);
|
|
g_free (sc);
|
|
g_print ("%70s SKIPPED\n", sleft);
|
|
g_free (sleft);
|
|
}
|
|
test_log_printfe ("%s<testcase path=\"%s\" skipped=\"1\"/>\n", sindent (log_indent), msg->strings[0]);
|
|
break;
|
|
case G_TEST_LOG_STOP_CASE:
|
|
testcase_close (msg->nums[2], (int) msg->nums[0], (int) msg->nums[1]);
|
|
break;
|
|
case G_TEST_LOG_MIN_RESULT:
|
|
case G_TEST_LOG_MAX_RESULT:
|
|
test_log_printfe ("%s<performance minimize=\"%d\" maximize=\"%d\" value=\"%.16Lg\">\n",
|
|
sindent (log_indent), msg->log_type == G_TEST_LOG_MIN_RESULT, msg->log_type == G_TEST_LOG_MAX_RESULT, msg->nums[0]);
|
|
test_log_printfe ("%s%s\n", sindent (log_indent + 2), msg->strings[0]);
|
|
test_log_printfe ("%s</performance>\n", sindent (log_indent));
|
|
break;
|
|
case G_TEST_LOG_MESSAGE:
|
|
test_log_printfe ("%s<message>\n%s\n%s</message>\n", sindent (log_indent), msg->strings[0], sindent (log_indent));
|
|
break;
|
|
}
|
|
}
|
|
|
|
static gboolean
|
|
child_report_cb (GIOChannel *source,
|
|
GIOCondition condition,
|
|
gpointer data)
|
|
{
|
|
GTestLogBuffer *tlb = data;
|
|
GIOStatus status = G_IO_STATUS_NORMAL;
|
|
gboolean first_read_eof = FALSE, first_read = TRUE;
|
|
gsize length = 0;
|
|
do
|
|
{
|
|
guint8 buffer[READ_BUFFER_SIZE];
|
|
GError *error = NULL;
|
|
status = g_io_channel_read_chars (source, (gchar*) buffer, sizeof (buffer), &length, &error);
|
|
if (first_read && (condition & G_IO_IN))
|
|
{
|
|
/* on some unixes (MacOS) we need to detect non-blocking fd EOF
|
|
* by an IO_IN select/poll followed by read()==0.
|
|
*/
|
|
first_read_eof = length == 0;
|
|
}
|
|
first_read = FALSE;
|
|
if (length)
|
|
{
|
|
GTestLogMsg *msg;
|
|
g_test_log_buffer_push (tlb, length, buffer);
|
|
do
|
|
{
|
|
msg = g_test_log_buffer_pop (tlb);
|
|
if (msg)
|
|
{
|
|
test_log_msg (msg);
|
|
g_test_log_msg_free (msg);
|
|
}
|
|
}
|
|
while (msg);
|
|
}
|
|
g_clear_error (&error);
|
|
/* ignore the io channel status, which will report intermediate EOFs for non blocking fds */
|
|
(void) status;
|
|
}
|
|
while (length > 0);
|
|
/* g_print ("LASTIOSTATE: first_read_eof=%d condition=%d\n", first_read_eof, condition); */
|
|
if (first_read_eof || (condition & (G_IO_ERR | G_IO_HUP)))
|
|
{
|
|
/* if there's no data to read and select() reports an error or hangup,
|
|
* the fd must have been closed remotely
|
|
*/
|
|
subtest_io_pending = FALSE;
|
|
return FALSE;
|
|
}
|
|
return TRUE; /* keep polling */
|
|
}
|
|
|
|
static void
|
|
child_watch_cb (GPid pid,
|
|
gint status,
|
|
gpointer data)
|
|
{
|
|
g_spawn_close_pid (pid);
|
|
if (WIFEXITED (status)) /* normal exit */
|
|
subtest_exitstatus = WEXITSTATUS (status);
|
|
else /* signal or core dump, etc */
|
|
subtest_exitstatus = 0xffffffff;
|
|
subtest_running = FALSE;
|
|
}
|
|
|
|
static gchar*
|
|
queue_gfree (GSList **slistp,
|
|
gchar *string)
|
|
{
|
|
*slistp = g_slist_prepend (*slistp, string);
|
|
return string;
|
|
}
|
|
|
|
static void
|
|
unset_cloexec_fdp (gpointer fdp_data)
|
|
{
|
|
int r, *fdp = fdp_data;
|
|
do
|
|
r = fcntl (*fdp, F_SETFD, 0 /* FD_CLOEXEC */);
|
|
while (r < 0 && errno == EINTR);
|
|
}
|
|
|
|
static gboolean
|
|
launch_test_binary (const char *binary,
|
|
guint skip_tests)
|
|
{
|
|
GTestLogBuffer *tlb;
|
|
GSList *slist, *free_list = NULL;
|
|
GError *error = NULL;
|
|
int argc = 0;
|
|
const gchar **argv;
|
|
GPid pid = 0;
|
|
gint report_pipe[2] = { -1, -1 };
|
|
guint child_report_cb_id = 0;
|
|
gboolean loop_pending;
|
|
gint i = 0;
|
|
|
|
if (!g_unix_open_pipe (report_pipe, FD_CLOEXEC, &error))
|
|
{
|
|
if (subtest_mode_fatal)
|
|
g_error ("Failed to open pipe for test binary: %s: %s", binary, error->message);
|
|
else
|
|
g_warning ("Failed to open pipe for test binary: %s: %s", binary, error->message);
|
|
g_clear_error (&error);
|
|
return FALSE;
|
|
}
|
|
|
|
/* setup argc */
|
|
for (slist = subtest_args; slist; slist = slist->next)
|
|
argc++;
|
|
/* argc++; */
|
|
if (subtest_quiet)
|
|
argc++;
|
|
if (subtest_verbose)
|
|
argc++;
|
|
if (!subtest_mode_fatal)
|
|
argc++;
|
|
/* Either -m=quick or -m=slow is always appended. */
|
|
argc++;
|
|
if (subtest_mode_perf)
|
|
argc++;
|
|
if (!subtest_mode_undefined)
|
|
argc++;
|
|
if (gtester_list_tests)
|
|
argc++;
|
|
if (subtest_seedstr)
|
|
argc++;
|
|
argc++;
|
|
if (skip_tests)
|
|
argc++;
|
|
for (slist = subtest_paths; slist; slist = slist->next)
|
|
argc++;
|
|
for (slist = skipped_paths; slist; slist = slist->next)
|
|
argc++;
|
|
|
|
/* setup argv */
|
|
argv = g_malloc ((argc + 2) * sizeof(gchar *));
|
|
argv[i++] = binary;
|
|
for (slist = subtest_args; slist; slist = slist->next)
|
|
argv[i++] = (gchar*) slist->data;
|
|
/* argv[i++] = "--debug-log"; */
|
|
if (subtest_quiet)
|
|
argv[i++] = "--quiet";
|
|
if (subtest_verbose)
|
|
argv[i++] = "--verbose";
|
|
if (!subtest_mode_fatal)
|
|
argv[i++] = "--keep-going";
|
|
if (subtest_mode_quick)
|
|
argv[i++] = "-m=quick";
|
|
else
|
|
argv[i++] = "-m=slow";
|
|
if (subtest_mode_perf)
|
|
argv[i++] = "-m=perf";
|
|
if (!subtest_mode_undefined)
|
|
argv[i++] = "-m=no-undefined";
|
|
if (gtester_list_tests)
|
|
argv[i++] = "-l";
|
|
if (subtest_seedstr)
|
|
argv[i++] = queue_gfree (&free_list, g_strdup_printf ("--seed=%s", subtest_seedstr));
|
|
argv[i++] = queue_gfree (&free_list, g_strdup_printf ("--GTestLogFD=%u", report_pipe[1]));
|
|
if (skip_tests)
|
|
argv[i++] = queue_gfree (&free_list, g_strdup_printf ("--GTestSkipCount=%u", skip_tests));
|
|
for (slist = subtest_paths; slist; slist = slist->next)
|
|
argv[i++] = queue_gfree (&free_list, g_strdup_printf ("-p=%s", (gchar*) slist->data));
|
|
for (slist = skipped_paths; slist; slist = slist->next)
|
|
argv[i++] = queue_gfree (&free_list, g_strdup_printf ("-s=%s", (gchar*) slist->data));
|
|
argv[i++] = NULL;
|
|
|
|
g_spawn_async_with_pipes (NULL, /* g_get_current_dir() */
|
|
(gchar**) argv,
|
|
NULL, /* envp */
|
|
G_SPAWN_DO_NOT_REAP_CHILD, /* G_SPAWN_SEARCH_PATH */
|
|
unset_cloexec_fdp, &report_pipe[1], /* pre-exec callback */
|
|
&pid,
|
|
NULL, /* standard_input */
|
|
NULL, /* standard_output */
|
|
NULL, /* standard_error */
|
|
&error);
|
|
g_slist_foreach (free_list, (void(*)(void*,void*)) g_free, NULL);
|
|
g_slist_free (free_list);
|
|
free_list = NULL;
|
|
close (report_pipe[1]);
|
|
|
|
if (!gtester_quiet)
|
|
g_print ("(pid=%lu)\n", (unsigned long) pid);
|
|
|
|
if (error)
|
|
{
|
|
close (report_pipe[0]);
|
|
if (subtest_mode_fatal)
|
|
g_error ("Failed to execute test binary: %s: %s", argv[0], error->message);
|
|
else
|
|
g_warning ("Failed to execute test binary: %s: %s", argv[0], error->message);
|
|
g_clear_error (&error);
|
|
g_free (argv);
|
|
return FALSE;
|
|
}
|
|
g_free (argv);
|
|
|
|
subtest_running = TRUE;
|
|
subtest_io_pending = TRUE;
|
|
tlb = g_test_log_buffer_new();
|
|
if (report_pipe[0] >= 0)
|
|
{
|
|
ioc_report = g_io_channel_unix_new (report_pipe[0]);
|
|
g_io_channel_set_flags (ioc_report, G_IO_FLAG_NONBLOCK, NULL);
|
|
g_io_channel_set_encoding (ioc_report, NULL, NULL);
|
|
g_io_channel_set_buffered (ioc_report, FALSE);
|
|
child_report_cb_id = g_io_add_watch_full (ioc_report, G_PRIORITY_DEFAULT - 1, G_IO_IN | G_IO_ERR | G_IO_HUP, child_report_cb, tlb, NULL);
|
|
g_io_channel_unref (ioc_report);
|
|
}
|
|
g_child_watch_add_full (G_PRIORITY_DEFAULT + 1, pid, child_watch_cb, NULL, NULL);
|
|
|
|
loop_pending = g_main_context_pending (NULL);
|
|
while (subtest_running || /* FALSE once child exits */
|
|
subtest_io_pending || /* FALSE once ioc_report closes */
|
|
loop_pending) /* TRUE while idler, etc are running */
|
|
{
|
|
/* g_print ("LOOPSTATE: subtest_running=%d subtest_io_pending=%d\n", subtest_running, subtest_io_pending); */
|
|
/* check for unexpected hangs that are not signalled on report_pipe */
|
|
if (!subtest_running && /* child exited */
|
|
subtest_io_pending && /* no EOF detected on report_pipe */
|
|
!loop_pending) /* no IO events pending however */
|
|
break;
|
|
g_main_context_iteration (NULL, TRUE);
|
|
loop_pending = g_main_context_pending (NULL);
|
|
}
|
|
|
|
if (subtest_io_pending)
|
|
g_source_remove (child_report_cb_id);
|
|
|
|
close (report_pipe[0]);
|
|
g_test_log_buffer_free (tlb);
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static void
|
|
launch_test (const char *binary)
|
|
{
|
|
gboolean success = TRUE;
|
|
GTimer *btimer = g_timer_new();
|
|
gboolean need_restart;
|
|
|
|
testcase_count = 0;
|
|
if (!gtester_quiet)
|
|
g_print ("TEST: %s... ", binary);
|
|
|
|
retry:
|
|
test_log_printfe ("%s<testbinary path=\"%s\">\n", sindent (log_indent), binary);
|
|
log_indent += 2;
|
|
g_timer_start (btimer);
|
|
subtest_exitstatus = 0;
|
|
success &= launch_test_binary (binary, testcase_count);
|
|
success &= subtest_exitstatus == 0;
|
|
need_restart = testcase_open != 0;
|
|
if (testcase_open)
|
|
testcase_close (0, -256, 0);
|
|
g_timer_stop (btimer);
|
|
test_log_printfe ("%s<duration>%.6f</duration>\n", sindent (log_indent), g_timer_elapsed (btimer, NULL));
|
|
log_indent -= 2;
|
|
test_log_printfe ("%s</testbinary>\n", sindent (log_indent));
|
|
g_free (subtest_last_seed);
|
|
subtest_last_seed = NULL;
|
|
if (need_restart)
|
|
{
|
|
/* restart test binary, skipping processed test cases */
|
|
goto retry;
|
|
}
|
|
|
|
/* count the inability to run a test as a failure */
|
|
if (!success && testcase_count == 0)
|
|
testcase_fail_count++;
|
|
|
|
if (!gtester_quiet)
|
|
g_print ("%s: %s\n", !success ? "FAIL" : "PASS", binary);
|
|
g_timer_destroy (btimer);
|
|
if (subtest_mode_fatal && !success)
|
|
terminate();
|
|
}
|
|
|
|
static void
|
|
usage (gboolean just_version)
|
|
{
|
|
if (just_version)
|
|
{
|
|
g_print ("gtester version %d.%d.%d\n", GLIB_MAJOR_VERSION, GLIB_MINOR_VERSION, GLIB_MICRO_VERSION);
|
|
return;
|
|
}
|
|
g_print ("Usage:\n");
|
|
g_print ("gtester [OPTIONS] testprogram...\n\n");
|
|
/* 12345678901234567890123456789012345678901234567890123456789012345678901234567890 */
|
|
g_print ("Help Options:\n");
|
|
g_print (" -h, --help Show this help message\n\n");
|
|
g_print ("Utility Options:\n");
|
|
g_print (" -v, --version Print version information\n");
|
|
g_print (" --g-fatal-warnings Make warnings fatal (abort)\n");
|
|
g_print (" -k, --keep-going Continue running after tests failed\n");
|
|
g_print (" -l List paths of available test cases\n");
|
|
g_print (" -m {perf|slow|thorough|quick} Run test cases according to mode\n");
|
|
g_print (" -m {undefined|no-undefined} Run test cases according to mode\n");
|
|
g_print (" -p=TESTPATH Only start test cases matching TESTPATH\n");
|
|
g_print (" -s=TESTPATH Skip test cases matching TESTPATH\n");
|
|
g_print (" --seed=SEEDSTRING Start tests with random seed SEEDSTRING\n");
|
|
g_print (" -o=LOGFILE Write the test log to LOGFILE\n");
|
|
g_print (" -q, --quiet Suppress per test binary output\n");
|
|
g_print (" --verbose Report success per testcase\n");
|
|
}
|
|
|
|
static void
|
|
parse_args (gint *argc_p,
|
|
gchar ***argv_p)
|
|
{
|
|
guint argc = *argc_p;
|
|
gchar **argv = *argv_p;
|
|
guint i, e;
|
|
/* parse known args */
|
|
for (i = 1; i < argc; i++)
|
|
{
|
|
if (strcmp (argv[i], "--g-fatal-warnings") == 0)
|
|
{
|
|
GLogLevelFlags fatal_mask = (GLogLevelFlags) g_log_set_always_fatal ((GLogLevelFlags) G_LOG_FATAL_MASK);
|
|
fatal_mask = (GLogLevelFlags) (fatal_mask | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL);
|
|
g_log_set_always_fatal (fatal_mask);
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp (argv[i], "--gtester-selftest") == 0)
|
|
{
|
|
gtester_selftest = TRUE;
|
|
argv[i] = NULL;
|
|
break; /* stop parsing regular gtester arguments */
|
|
}
|
|
else if (strcmp (argv[i], "-h") == 0 || strcmp (argv[i], "--help") == 0)
|
|
{
|
|
usage (FALSE);
|
|
exit (0);
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp (argv[i], "-v") == 0 || strcmp (argv[i], "--version") == 0)
|
|
{
|
|
usage (TRUE);
|
|
exit (0);
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp (argv[i], "--keep-going") == 0 ||
|
|
strcmp (argv[i], "-k") == 0)
|
|
{
|
|
subtest_mode_fatal = FALSE;
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-p", argv[i]) == 0 || strncmp ("-p=", argv[i], 3) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 2;
|
|
if (*equal == '=')
|
|
subtest_paths = g_slist_prepend (subtest_paths, equal + 1);
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
subtest_paths = g_slist_prepend (subtest_paths, argv[i]);
|
|
}
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-s", argv[i]) == 0 || strncmp ("-s=", argv[i], 3) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 2;
|
|
if (*equal == '=')
|
|
skipped_paths = g_slist_prepend (skipped_paths, equal + 1);
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
skipped_paths = g_slist_prepend (skipped_paths, argv[i]);
|
|
}
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("--test-arg", argv[i]) == 0 || strncmp ("--test-arg=", argv[i], 11) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 10;
|
|
if (*equal == '=')
|
|
subtest_args = g_slist_prepend (subtest_args, equal + 1);
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
subtest_args = g_slist_prepend (subtest_args, argv[i]);
|
|
}
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-o", argv[i]) == 0 || strncmp ("-o=", argv[i], 3) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 2;
|
|
if (*equal == '=')
|
|
output_filename = equal + 1;
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
output_filename = argv[i];
|
|
}
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-m", argv[i]) == 0 || strncmp ("-m=", argv[i], 3) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 2;
|
|
const gchar *mode = "";
|
|
if (*equal == '=')
|
|
mode = equal + 1;
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
mode = argv[i];
|
|
}
|
|
if (strcmp (mode, "perf") == 0)
|
|
subtest_mode_perf = TRUE;
|
|
else if (strcmp (mode, "slow") == 0 || strcmp (mode, "thorough") == 0)
|
|
subtest_mode_quick = FALSE;
|
|
else if (strcmp (mode, "quick") == 0)
|
|
{
|
|
subtest_mode_quick = TRUE;
|
|
subtest_mode_perf = FALSE;
|
|
}
|
|
else if (strcmp (mode, "undefined") == 0)
|
|
subtest_mode_undefined = TRUE;
|
|
else if (strcmp (mode, "no-undefined") == 0)
|
|
subtest_mode_undefined = FALSE;
|
|
else
|
|
g_error ("unknown test mode: -m %s", mode);
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-q", argv[i]) == 0 || strcmp ("--quiet", argv[i]) == 0)
|
|
{
|
|
gtester_quiet = TRUE;
|
|
gtester_verbose = FALSE;
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("--verbose", argv[i]) == 0)
|
|
{
|
|
gtester_quiet = FALSE;
|
|
gtester_verbose = TRUE;
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("-l", argv[i]) == 0)
|
|
{
|
|
gtester_list_tests = TRUE;
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("--seed", argv[i]) == 0 || strncmp ("--seed=", argv[i], 7) == 0)
|
|
{
|
|
gchar *equal = argv[i] + 6;
|
|
if (*equal == '=')
|
|
subtest_seedstr = equal + 1;
|
|
else if (i + 1 < argc)
|
|
{
|
|
argv[i++] = NULL;
|
|
subtest_seedstr = argv[i];
|
|
}
|
|
argv[i] = NULL;
|
|
}
|
|
else if (strcmp ("--i-know-this-is-deprecated", argv[i]) == 0)
|
|
{
|
|
gtester_ignore_deprecation = TRUE;
|
|
argv[i] = NULL;
|
|
}
|
|
}
|
|
/* collapse argv */
|
|
e = 0;
|
|
for (i = 0; i < argc; i++)
|
|
if (argv[i])
|
|
{
|
|
argv[e++] = argv[i];
|
|
if (i >= e)
|
|
argv[i] = NULL;
|
|
}
|
|
*argc_p = e;
|
|
}
|
|
|
|
int
|
|
main (int argc,
|
|
char **argv)
|
|
{
|
|
gint ui;
|
|
|
|
g_set_prgname (argv[0]);
|
|
parse_args (&argc, &argv);
|
|
if (gtester_selftest)
|
|
return main_selftest (argc, argv);
|
|
|
|
if (argc <= 1)
|
|
{
|
|
usage (FALSE);
|
|
return 1;
|
|
}
|
|
|
|
if (!gtester_ignore_deprecation)
|
|
g_warning ("Deprecated: Since GLib 2.62, gtester and gtester-report are "
|
|
"deprecated. Port to TAP.");
|
|
|
|
if (output_filename)
|
|
{
|
|
int errsv;
|
|
log_fd = g_open (output_filename, O_WRONLY | O_CREAT | O_TRUNC, 0666);
|
|
errsv = errno;
|
|
if (log_fd < 0)
|
|
g_error ("Failed to open log file '%s': %s", output_filename, g_strerror (errsv));
|
|
}
|
|
|
|
test_log_printfe ("<?xml version=\"1.0\"?>\n");
|
|
test_log_printfe ("<!-- Deprecated: Since GLib 2.62, gtester and "
|
|
"gtester-report are deprecated. Port to TAP. -->\n");
|
|
test_log_printfe ("%s<gtester>\n", sindent (log_indent));
|
|
log_indent += 2;
|
|
for (ui = 1; ui < argc; ui++)
|
|
{
|
|
const char *binary = argv[ui];
|
|
launch_test (binary);
|
|
/* we only get here on success or if !subtest_mode_fatal */
|
|
}
|
|
log_indent -= 2;
|
|
test_log_printfe ("%s</gtester>\n", sindent (log_indent));
|
|
|
|
close (log_fd);
|
|
|
|
return testcase_fail_count == 0 ? EXIT_SUCCESS : EXIT_FAILURE;
|
|
}
|
|
|
|
static void
|
|
fixture_setup (guint *fix,
|
|
gconstpointer test_data)
|
|
{
|
|
g_assert_cmphex (*fix, ==, 0);
|
|
*fix = 0xdeadbeef;
|
|
}
|
|
static void
|
|
fixture_test (guint *fix,
|
|
gconstpointer test_data)
|
|
{
|
|
g_assert_cmphex (*fix, ==, 0xdeadbeef);
|
|
g_test_message ("This is a test message API test message.");
|
|
g_test_bug_base ("http://www.example.com/bugtracker/");
|
|
g_test_bug ("123");
|
|
g_test_bug_base ("http://www.example.com/bugtracker?bugnum=%s;cmd=showbug");
|
|
g_test_bug ("456");
|
|
g_test_bug ("https://example.com/no-base-used");
|
|
}
|
|
static void
|
|
fixture_teardown (guint *fix,
|
|
gconstpointer test_data)
|
|
{
|
|
g_assert_cmphex (*fix, ==, 0xdeadbeef);
|
|
}
|
|
|
|
static int
|
|
main_selftest (int argc,
|
|
char **argv)
|
|
{
|
|
/* gtester main() for --gtester-selftest invocations */
|
|
g_test_init (&argc, &argv, NULL);
|
|
g_test_add ("/gtester/fixture-test", guint, NULL, fixture_setup, fixture_test, fixture_teardown);
|
|
return g_test_run();
|
|
}
|