me
/
guix
Archived
1
0
Fork 0
Code

gnu: rosegarden: Run tests. 

* gnu/packages/music.scm (rosegarden)[arguments]<#:phases>: Actually run
tests.  Also fix or skip failing tests.
master
Nicolas Goaziou 2023-01-08 13:06:17 +01:00
parent bf707d29e5
commit 6e55c1732c
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/music.scm
View File

@ -5036,7 +5036,8 @@ specification and header.")
(add-after 'unpack 'patch-tests
(lambda _
(substitute* "CMakeLists.txt"
(("BUILD_TESTING OFF") "BUILD_TESTING ON")
(("(BUILD_TESTING .* )OFF" _ prefix)
(string-append prefix "ON"))
;; Make tests work.
((" -fvisibility=hidden") ""))))
(add-after 'unpack 'fix-references
@ -5075,10 +5076,17 @@ specification and header.")
(add-before 'check 'prepare-check
(lambda _
(setenv "QT_QPA_PLATFORM" "offscreen")
;; Tests create files in $HOME/.local/share/rosegarden .
;; Tests create files in $HOME/.local/share/rosegarden and
;; expect permissions set to 0700.
(mkdir-p "/tmp/foo")
(chmod "/tmp/foo" #o700)
(setenv "HOME" "/tmp/foo")
(setenv "XDG_RUNTIME_DIR" "/tmp/foo"))))))
(setenv "XDG_RUNTIME_DIR" "/tmp/foo")))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
;; Skip a failing test.
(invoke "ctest" "-E" "test_notationview_selection")))))))
(inputs
(list alsa-lib
bash-minimal