From 718bde8b7fcde357e74ae542495f65436f40117a Mon Sep 17 00:00:00 2001
From: Sughosha <sughosha@disroot.org>
Date: Tue, 7 Oct 2025 15:04:58 +0530
Subject: [PATCH] gnu: ktextaddons: Update to 1.7.1.

* gnu/packages/kde-frameworks.scm (ktextaddons): Update to 1.7.1.
[arguments]<#:test-exclude>: Exclude "grammalecteresultwidgettest",
"grammalecteconfigwidgettest", "grammalecteresultjobtest",
"languagetoolconfigwidgettest", "translator-translatorwidgettest" and
"translator-translatorengineloadertest"
<#:phases>: In 'check phase, check only when tests? is true and use
test-exclude keyword in the place of the excluded tests.

Change-Id: I6df5b1c7cc2afd2c32c3111b984d808ad7a6ecc4
---
 gnu/packages/kde-frameworks.scm | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index ba6e1964080945f306852e97e6b928e7a9e54363..5fe5e9a3266b1424a73d1e6155cd6ce7c0790984 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -5174,7 +5174,7 @@ need.")
 (define-public ktextaddons
   (package
     (name "ktextaddons")
-    (version "1.6.0")
+    (version "1.7.1")
     (source
      (origin
        (method url-fetch)
@@ -5182,21 +5182,32 @@ need.")
              "mirror://kde/stable/" name "/" name "-" version ".tar.xz"))
        (sha256
         (base32
-         "1p7c461mnvsq7jz77x412k1kwmr9phr306dd9skbv5rgll2nb16r"))))
+         "0zmfk3lyfaqgn3g1nclqcm7fyqgr0hyib9w6685w95g0k3i2bkwh"))))
     (build-system qt-build-system)
     (arguments
      (list #:qtbase qtbase
+           #:test-exclude
+           (string-append "("
+                          (string-join '("grammalecteresultwidgettest"
+                                         "grammalecteconfigwidgettest"
+                                         "grammalecteresultjobtest"
+                                         "languagetoolconfigwidgettest"
+                                         "translator-translatorwidgettest"
+                                         "translator-translatorengineloader\
+test")
+                                       "|")
+                          ")")
            #:configure-flags #~(list "-DQT_MAJOR_VERSION=6")
            #:phases
            #~(modify-phases %standard-phases
                (replace 'check
-                 (lambda _
-                   (setenv "HOME" (getcwd))
-                   ;; XXX: 6 tests failed due to:
-                   ;;   missing icons
-                   ;;   translators plugins not available during tests
-                   (invoke "ctest" "-E"
-                           "(grammalecteresultwidgettest|grammalecteconfigwidgettest||grammalecteresultjobtest|languagetoolconfigwidgettest|translator-translatorwidgettest|translator-translatorengineloadertest)"))))))
+                 (lambda* (#:key tests? (test-exclude "") #:allow-other-keys)
+                   (when tests?
+                     (setenv "HOME" (getcwd))
+                     ;; XXX: 6 tests failed due to:
+                     ;;   missing icons
+                     ;;   translators plugins not available during tests
+                     (invoke "ctest" "-E" test-exclude)))))))
     (native-inputs
      (list extra-cmake-modules
            qttools))