From b1beb1670b91216f8c0fcceff6069da7f922e096 Mon Sep 17 00:00:00 2001 From: Hartmut Goebel Date: Sat, 21 Oct 2017 17:43:58 +0200 Subject: 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. --- gnu/packages/kde-frameworks.scm | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index 6f261afd1a..78290cf1a9 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -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") -- cgit 1.4.1