~ruther/guix-local

b1beb1670b91216f8c0fcceff6069da7f922e096 — Hartmut Goebel 8 years ago 5bc1efd
gnu: krunner: Make some tests pass.

* gnu/packages/kde-frameworks.scm[arguments]
  <#:tests?>: Remove.
  <#:phases>[fix-paths-for-test'] New phase.
  <#:phases>[check-setup]: Set $HOME. Blacklist a failing new-in-5.39.0 test.
1 files changed, 15 insertions(+), 2 deletions(-)

M gnu/packages/kde-frameworks.scm
M gnu/packages/kde-frameworks.scm => gnu/packages/kde-frameworks.scm +15 -2
@@ 2747,13 2747,26 @@ to easily extend the contacts collection.")
       ("solid" ,solid)
       ("threadweaver" ,threadweaver)))
    (arguments
     `(#:tests? #f ; FIXME: 1/1 tests fail.
       #:phases
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-paths-for-test
           ;; This test tries to access paths like /home, /usr/bin and /bin/ls
           ;; which don't exist in the build-container. Change to existing paths.
           (lambda _
             (substitute* "autotests/runnercontexttest.cpp"
               (("/home\"") "/tmp\"") ;; single path-part
               (("//usr/bin\"") (string-append (getcwd) "\"")) ;; multiple path-parts
               (("/bin/ls" path)
                (string-append (assoc-ref %build-inputs "coreutils") path)))))
         (add-before 'check 'check-setup
           (lambda _
             (setenv "HOME" (getcwd))
             ;; make Qt render "offscreen", required for tests
             (setenv "QT_QPA_PLATFORM" "offscreen")
             ;; Blacklist a failing test-function. TODO: Make it pass.
             (with-output-to-file "bin/BLACKLIST"
               (lambda _
                 (display "[testMatch]\n*\n")))
             #t)))))
    (home-page "https://community.kde.org/Frameworks")
    (synopsis "Framework for Plasma runners")