From b3f559886fb699ca68d9b31046ede493f26f38c7 Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Mon, 27 Mar 2023 15:40:10 +0200
Subject: [PATCH] gnu: bitcoin-unlimited: Disable failing test.

* gnu/packages/finance.scm (bitcoin-unlimited)[arguments]: Disable a test
  failing because of an expired SSL certificate.
---
 gnu/packages/finance.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 3f3fc078f0..2b18b0bb88 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -1782,7 +1782,12 @@ (define-public bitcoin-unlimited
              ;; exist.
              (substitute* "src/Makefile.test.include"
                (("test/utilprocess_tests.cpp")
-                ""))))
+                ""))
+             ;; Disable PaymentServer failing test because it's using
+             ;; an expired SSL certificate.
+             (substitute* "src/qt/test/test_main.cpp"
+               (("if \\(QTest::qExec\\(&test2\\) != 0\\)")
+                "if (QTest::qExec(&test2) == 0)"))))
          (add-before 'check 'set-home
            (lambda _
              ;; Tests write to $HOME