futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: krunner: Enable all tests.

Browse Source 
* gnu/packages/kde-frameworks.scm (krunner): Use gexp.
[inputs]: Add kactivities.
[arguments]: Enable all tests.

Signed-off-by: Marius Bakke <marius@gnu.org>
This commit is contained in:
Petr Hodina 2022-09-27 21:30:01 +02:00 committed by Marius Bakke
parent 3340dcca5a
commit fa2969388c
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
gnu/packages/kde-frameworks.scm
View File

@ -2940,7 +2940,8 @@ to easily extend the contacts collection.")
;; For tests. ;; For tests.
dbus)) dbus))
(inputs (inputs
(list kauth (list kactivities
kauth
kbookmarks kbookmarks
kcodecs kcodecs
kcompletion kcompletion
@ -2961,26 +2962,24 @@ to easily extend the contacts collection.")
solid solid
threadweaver)) threadweaver))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'unpack 'fix-paths-for-test #~(modify-phases %standard-phases
;; This test tries to access paths like /home, /usr/bin and /bin/ls (add-after 'unpack 'fix-paths-for-test
;; which don't exist in the build-container. Change to existing paths. ;; This test tries to access paths like /home, /usr/bin and /bin/ls
(lambda* (#:key inputs #:allow-other-keys) ;; which don't exist in the build-container. Change to existing paths.
(substitute* "autotests/runnercontexttest.cpp" (lambda* (#:key inputs #:allow-other-keys)
(("/home\"") "/tmp\"") ;; single path-part (substitute* "autotests/runnercontexttest.cpp"
(("//usr/bin\"") (string-append (getcwd) "\"")) ;; multiple path-parts (("/home\"") "/tmp\"") ;; single path-part
(("/bin/ls") (("//usr/bin\"") (string-append (getcwd) "\"")) ;; multiple path-parts
(search-input-file inputs "/bin/ls"))))) (("/bin/ls")
(replace 'check (search-input-file inputs "/bin/ls")))))
(lambda* (#:key tests? #:allow-other-keys) (replace 'check
(when tests? (lambda* (#:key tests? #:allow-other-keys)
(setenv "HOME" (getcwd)) (when tests?
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "HOME" (getcwd))
(invoke "dbus-launch" "ctest" (setenv "QT_QPA_PLATFORM" "offscreen")
"-E" ;; Some tests fail (invoke "dbus-launch" "ctest")))))))
"(runnercontexttest|dbusrunnertest|\
runnermanagersinglerunnermodetest|runnermanagertest)")))))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Framework for Plasma runners") (synopsis "Framework for Plasma runners")
(description "The Plasma workspace provides an application called KRunner (description "The Plasma workspace provides an application called KRunner