01/06: gnu: kcoreaddons: Enable test-suite.

[guix-commits]

htgoebel pushed a commit to branch master
in repository guix.

commit 2d4589ffb9be291cd9e76476d9385013fefb3600
Author: Hartmut Goebel <address@hidden>
Date:   Tue Jan 1 23:07:30 2019 +0100

    gnu: kcoreaddons: Enable test-suite.
    
    Enable running the tests and blacklist the one failing test.
    
    * gnu/package/kde-frameworks.scm(kcoreaddons)[arguments]
      <#:tests?>: Remove. <#:phases>: Add phase 'blacklist-failing-test.
---
 gnu/packages/kde-frameworks.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 42b9f0f..3a6c9f6 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -567,9 +567,16 @@ propagate their changes to their respective configuration 
files.")
     (inputs
      `(("qtbase" ,qtbase)))
     (arguments
-     `(#:tests? #f ; FIXME: Test failure caused by stout/stderr being 
interleaved.
-       #:phases
+     `(#:phases
        (modify-phases %standard-phases
+         (add-before 'check 'blacklist-failing-test
+           (lambda _
+             ;; Blacklist a failing test-function. FIXME: Make it pass.
+             ;; Test failure caused by stout/stderr being interleaved.
+             (with-output-to-file "autotests/BLACKLIST"
+               (lambda _
+                 (display "[test_channels]\n*\n")))
+             #t))
          (add-before 'check 'check-setup
            (lambda _
              (setenv "HOME" (getcwd))