01/07: gnu: kdevplatform: Use INVOKE.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 70554077704742fd458ec8253299fcc2b0541925
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Apr 27 23:42:54 2019 +0200

    gnu: kdevplatform: Use INVOKE.
    
    * gnu/packages/kde.scm (kdevplatform)[arguments]: Use INVOKE and return #T
    unconditionally.
---
 gnu/packages/kde.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index 37c67b8..2427d35 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -298,7 +298,7 @@ for some KDevelop language plugins (Ruby, PHP, CSS...).")
      `(#:phases
        (modify-phases %standard-phases
          (delete 'check)
-         (add-after 'install 'check ;; add-after 'install
+         (add-after 'install 'check
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
                (setenv "CTEST_OUTPUT_ON_FAILURE" "1")
@@ -308,9 +308,8 @@ for some KDevelop language plugins (Ruby, PHP, CSS...).")
                (setenv "XDG_DATA_DIRS"
                        (string-append out "/share:"
                                       (getenv "XDG_DATA_DIRS")))
-               (zero?
-                (system* "ctest" "-R" ;; almost all tests require a display
-                         
"filteringstrategy|kdevvarlengtharray|kdevhash"))))))))
+               (invoke "ctest" "-R" ; almost all tests require a display
+                       "filteringstrategy|kdevvarlengtharray|kdevhash")))))))
     (home-page "https://github.com/KDE/kdevplatform";)
     (synopsis "Framework to build integrated development environments (IDEs)")
     (description "KDevPlatform is the basis of KDevelop and contains some