gnu: glib: Update failing tests on the Hurd.

* gnu/packages/glib.scm (glib-minimal)[#:phases]
<disable-failing-tests>[if (system-hurd?)]:
Skip “gio/filenamecompleter.c”, “gio/testfilemonitor.c”, and
“gio/gwakeuptest.c”.
Run “gio/live-g-file.c”, but skip “g_assert_true (is_mountpoint);”.
Re-enable all other previously disabled tests.

Change-Id: I434ff5fa084d20c9eb1230682574e096e6d77673
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

1 files changed, 8 insertions, 94 deletions

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index e44ba2f0237..e490a356a78 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -334,104 +334,18 @@ information, refer to the @samp{dbus-daemon(1)} man page.")))
                      #~())
               #$@(if (system-hurd?)
                      '((with-directory-excursion "gio/tests"
-                         ;; TIMEOUT after 600s
-                         (substitute* '("actions.c"
-                                        "dbus-appinfo.c"
-                                        "debugcontroller.c"
-                                        "gdbus-bz627724.c"
-                                        "gdbus-connection-slow.c"
-                                        "gdbus-exit-on-close.c"
-                                        "gdbus-export.c"
-                                        "gdbus-introspection.c"
-                                        "gdbus-method-invocation.c"
-                                        "gdbus-non-socket.c"
-                                        "gdbus-proxy-threads.c"
-                                        "gdbus-proxy-unique-name.c"
-                                        "gdbus-proxy-well-known-name.c"
-                                        "gdbus-proxy.c"
-                                        "gdbus-test-codegen.c"
-                                        "gmenumodel.c"
-                                        "gnotification.c"
-                                        "stream-rw_all.c")
-                           (("return (g_test_run|session_bus_run)" all call)
-                            (string-append "return 0;// " call))
-                           ((" (ret|rtv|result) = (g_test_run|session_bus_run)"
-                             all var call)
-                            (string-append " " var " = 0;// " call))
-                           (("[ \t]*g_test_add_func.*;") ""))
-
-                         ;; commenting-out g_assert, g_test_add_func, g_test_run
-                         ;; does not help; special-case short-circuit.
-                         (substitute* "gdbus-connection-loss.c" ;; TODO?
-                           (("  gchar \\*path;.*" all)
-                            (string-append all "  return 0;\n")))
-
                          ;; FAIL
-                         (substitute* '("appmonitor.c"
-                                        "async-splice-output-stream.c"
-                                        "autoptr.c"
-                                        "contexts.c"
-                                        "converter-stream.c"
-                                        "file.c"
-                                        "g-file-info.c"
-                                        "g-file.c"
-                                        "g-icon.c"
-                                        "gapplication.c"
-                                        "gdbus-connection-flush.c"
-                                        "gdbus-connection.c"
-                                        "gdbus-names.c"
-                                        "gdbus-server-auth.c"
-                                        "gsocketclient-slow.c"
-                                        "gsubprocess.c"
-                                        "io-stream.c"
-                                        "live-g-file.c"
-                                        "memory-monitor.c"
-                                        "mimeapps.c"
-                                        "network-monitor-race.c"
-                                        "network-monitor.c"
-                                        "pollable.c"
-                                        "power-profile-monitor.c"
-                                        "readwrite.c"
-                                        "resources.c"
-                                        "socket-service.c"
-                                        "socket.c"
-                                        "tls-bindings.c"
-                                        "tls-certificate.c"
-                                        "tls-database.c"
-                                        "trash.c"
-                                        "vfs.c")
-                           (("return (g_test_run|session_bus_run)" all call)
+                         (substitute* '("filenamecompleter.c"
+                                        "testfilemonitor.c")
+                           (("return (g_test_run)" all call)
                             (string-append "return 0;// " call))
-                           ((" (ret|rtv|result) = (g_test_run|session_bus_run)"
-                             all var call)
-                            (string-append " " var " = 0;// " call))
                            (("[ \t]*g_test_add_func.*;") ""))
-
-                         ;; commenting-out g_test_add_func, g_test_run does
-                         ;; not help; special-case short-circuit.
-                         (substitute* "gsettings.c"
-                           (("#ifdef TEST_LOCALE_PATH" all)
-                            (string-append "  return 0;\n" all)))
-
-                         ;; commenting-out g_test_add_func, ;; g_test_run does
-                         ;; not help; special-case short-circuit.
-                         (substitute* "proxy-test.c"
-                           (("  gint result.*;" all)
-                            (string-append all "  return 0;\n")))
-
-                         ;; commenting-out g_test_add_func, g_test_run
-                         ;; does not help; special-case short-circuit.
-                         (substitute* "volumemonitor.c"
-                           (("  gboolean ret;" all)
-                            (string-append all "  return 0;\n"))))
-
+                         ;; Fails to identify / as a mountpoint
+                         (substitute* "live-g-file.c"
+                           (("g_assert_true \\(is_mountpoint\\);") "")))
                        (with-directory-excursion "glib/tests"
-                         ;; TIMEOUT after 600s
-                         (substitute* "thread-pool.c"
-                           (("[ \t]*g_test_add_func.*;") ""))
-
-                         ;; FAIL
-                         (substitute* "fileutils.c"
+                         ;; pthread_mutex_lock: EINVAL
+                         (substitute* "gwakeuptest.c"
                            (("[ \t]*g_test_add_func.*;") ""))))
                      '())))
           ;; Python references are not being patched in patch-phase of build,