branch core-updates updated: gnu: kcontacts: Fix building.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

z572 pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new d694273c04 gnu: kcontacts: Fix building.
d694273c04 is described below

commit d694273c04b47424ab5bbdf0e7360abd185826af
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Thu Aug 29 21:11:12 2024 +0800

    gnu: kcontacts: Fix building.
    
    * gnu/packages/kde-frameworks.scm (kcontacts)[arguments]<#:phases>: Exclude
    kcontacts-addresstest test.
    
    Change-Id: I6c9b8a26588bf2db3bddec4f528fe8c9b3862a02
---
 gnu/packages/kde-frameworks.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 53fe0d814f..88f79615f0 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2370,7 +2370,15 @@ integrated it into your application's other widgets.")
       #:phases
       #~(modify-phases %standard-phases
           (add-before 'check 'check-setup
-            (lambda _ (setenv "HOME" (getcwd)))))))
+            (lambda _ (setenv "HOME" (getcwd))))
+          (replace 'check
+            (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
+              (when tests?
+                (invoke "ctest" "-E" "(kcontacts-addresstest)"
+                        "--rerun-failed" "--output-on-failure"
+                        "-j" (if parallel-tests?
+                                 (number->string (parallel-job-count))
+                                 "1"))))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "API for contacts/address book data following the vCard 
standard")
     (description "This library provides a vCard data model, vCard