[libpeas] Support G_DEBUG in the test suite

[Garrett Regier <gregier src gnome org>]

commit 41852acf7b3dc758c7ff285b41e1a6c8f8ab8d0b
Author: Garrett Regier <garrettregier gmail com>
Date:   Mon Sep 21 22:13:02 2015 -0700

    Support G_DEBUG in the test suite
    
    This is broken because the GLib test utilities
    change the default.

 tests/testing-util/testing-util.c |   25 +++++++++++++++++++++++++
 1 files changed, 25 insertions(+), 0 deletions(-)
---
diff --git a/tests/testing-util/testing-util.c b/tests/testing-util/testing-util.c
index e486dfd..addc9a0 100644
--- a/tests/testing-util/testing-util.c
+++ b/tests/testing-util/testing-util.c
@@ -47,6 +47,7 @@ static void unhandled_private_notify (gpointer value);
 static void log_hooks_private_notify (gpointer value);
 
 static gboolean initialized = FALSE;
+static GLogLevelFlags fatal_flags = 0;
 
 static gpointer dead_engine = NULL;
 #define DEAD_ENGINE ((gpointer) &dead_engine)
@@ -155,6 +156,15 @@ log_handler (const gchar    *log_domain,
 
   /* Use the default log handler directly to avoid recurse complaints */
   g_log_default_handler (log_domain, log_level, message, user_data);
+
+  /* Support for the standard G_DEBUG flags */
+  if (((log_level & G_LOG_LEVEL_WARNING) != 0 &&
+       (fatal_flags & G_LOG_LEVEL_WARNING) != 0) ||
+      ((log_level & G_LOG_LEVEL_CRITICAL) != 0 &&
+       (fatal_flags & G_LOG_LEVEL_CRITICAL) != 0))
+    {
+      G_BREAKPOINT ();
+    }
 }
 
 void
@@ -179,6 +189,10 @@ void
 testing_util_init (void)
 {
   GError *error = NULL;
+  const GDebugKey glib_debug_keys[] = {
+    { "fatal-warnings",  G_LOG_LEVEL_WARNING  },
+    { "fatal-criticals", G_LOG_LEVEL_CRITICAL }
+  };
 
   if (initialized)
     return;
@@ -188,6 +202,17 @@ testing_util_init (void)
 
   g_log_set_default_handler (log_handler, NULL);
 
+  /* Force a breakpoint when the standard GLib debug flags
+   * are used. This is not supplied automatically because
+   * GLib's test utilities change the default.
+   */
+  fatal_flags = g_parse_debug_string (g_getenv ("G_DEBUG"), glib_debug_keys,
+                                      G_N_ELEMENTS (glib_debug_keys));
+
+  /* The "fatal-warnings" key implies "fatal-criticals" */
+  if ((fatal_flags & G_LOG_LEVEL_WARNING) != 0)
+    fatal_flags |= G_LOG_LEVEL_CRITICAL;
+
   g_irepository_require_private (g_irepository_get_default (),
                                  BUILDDIR "/libpeas",
                                  "Peas", "1.0", 0, &error);