[gtk+] Add a test for GtkBuilder typename-mangling

[Matthias Clasen <matthiasc src gnome org>]

commit 4a38330a9096118a0877dba39359f6bf2f8d6e1d
Author: Matthias Clasen <mclasen redhat com>
Date:   Fri Sep 26 23:29:38 2014 -0400

    Add a test for GtkBuilder typename-mangling
    
    This test makes sure that out heuristic for finding
    get_type functions works as expected.
    
    https://bugzilla.gnome.org/show_bug.cgi?id=635258

 testsuite/gtk/Makefile.am |    1 +
 testsuite/gtk/typename.c  |   83 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 84 insertions(+), 0 deletions(-)
---
diff --git a/testsuite/gtk/Makefile.am b/testsuite/gtk/Makefile.am
index 7e8e50f..52aacfa 100644
--- a/testsuite/gtk/Makefile.am
+++ b/testsuite/gtk/Makefile.am
@@ -65,6 +65,7 @@ TEST_PROGS +=                         \
        treemodel               \
        treepath                \
        treeview                \
+       typename                \
        window                  \
        displayclose            \
        $(NULL)
diff --git a/testsuite/gtk/typename.c b/testsuite/gtk/typename.c
new file mode 100644
index 0000000..7237631
--- /dev/null
+++ b/testsuite/gtk/typename.c
@@ -0,0 +1,83 @@
+/* typename.c: Test for GtkBuilder's type-name-mangling heuristics
+ * Copyright (C) 2014 Red Hat, Inc.
+ * Authors: Matthias Clasen
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <glib.h>
+
+/* keep in sync with gtkbuilder.c */
+static gchar *
+type_name_mangle (const gchar *name)
+{
+  GString *symbol_name = g_string_new ("");
+  int i;
+
+  for (i = 0; name[i] != '\0'; i++)
+    {
+      /* skip if uppercase, first or previous is uppercase */
+      if ((i > 0 && name[i]  == g_ascii_toupper (name[i]) &&
+                   (name[i-1] != g_ascii_toupper (name[i-1]) || i == 1)) ||
+          (i > 2 && name[i]   == g_ascii_toupper (name[i]) &&
+                    name[i-1] == g_ascii_toupper (name[i-1]) &&
+                    name[i-2] == g_ascii_toupper (name[i-2]) && 
+                    name[i+1] != 0 && name[i+1] != g_ascii_toupper (name[i+1])))
+        g_string_append_c (symbol_name, '_');
+      g_string_append_c (symbol_name, g_ascii_tolower (name[i]));
+    }
+  g_string_append (symbol_name, "_get_type");
+
+  return g_string_free (symbol_name, FALSE);
+}
+
+static void
+check (const gchar *TN, const gchar *gtf)
+{
+  gchar *symbol;
+
+  symbol = type_name_mangle (TN);
+  g_assert_cmpstr (symbol, ==, gtf);
+  g_free (symbol);
+}
+
+static void test_GtkWindow (void)    { check ("GtkWindow", "gtk_window_get_type"); }
+static void test_GtkHBox (void)      { check ("GtkHBox", "gtk_hbox_get_type"); }
+static void test_GtkUIManager (void) { check ("GtkUIManager", "gtk_ui_manager_get_type"); }
+static void test_GString (void)      { check ("GString", "g_string_get_type"); }
+static void test_GtkCList (void)     { check ("GtkCList", "gtk_clist_get_type"); }
+static void test_GtkIMContext (void) { check ("GtkIMContext", "gtk_im_context_get_type"); }
+static void test_GdkRGB (void)       { check ("GdkRGB", "gdk_rgb_get_type"); }
+static void test_GdkRGBA (void)      { check ("GdkRGBA", "gdk_rgba_get_type"); }
+static void test_Me2Shell (void)     { check ("Me2Shell", "me_2shell_get_type"); }
+static void test_E2Shell (void)      { check ("E2Shell", "e_2shell_get_type"); }
+ 
+int
+main (int argc, char *argv[])
+{
+  g_test_init (&argc, &argv, NULL);
+  
+  g_test_add_func ("/builder/get-type/GtkWindow",    test_GtkWindow);
+  g_test_add_func ("/builder/get-type/GtkHBox",      test_GtkHBox);
+  g_test_add_func ("/builder/get-type/GtkUIManager", test_GtkUIManager);
+  g_test_add_func ("/builder/get-type/GString",      test_GString);
+  g_test_add_func ("/builder/get-type/GtkCList",     test_GtkCList);
+  g_test_add_func ("/builder/get-type/GtkIMContext", test_GtkIMContext);
+  g_test_add_func ("/builder/get-type/GdkRGB",       test_GdkRGB);
+  g_test_add_func ("/builder/get-type/GdkRGBA",      test_GdkRGBA);
+  g_test_add_func ("/builder/get-type/Me2Shell",     test_Me2Shell);
+  g_test_add_func ("/builder/get-type/E2Shell",      test_E2Shell);
+
+  return g_test_run ();
+}