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.
This commit is contained in:
Hartmut Goebel 2017-10-21 17:43:58 +02:00
parent 5bc1efd77d
commit b1beb1670b
No known key found for this signature in database
GPG Key ID: 634A8DFFD3F631DF
1 changed files with 15 additions and 2 deletions

View File

@ -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")