From 6e55c1732cabe0f3d681b3fd901de7cb067ddb5f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 8 Jan 2023 13:06:17 +0100 Subject: [PATCH] gnu: rosegarden: Run tests. * gnu/packages/music.scm (rosegarden)[arguments]<#:phases>: Actually run tests. Also fix or skip failing tests. --- gnu/packages/music.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index f2e8827b32..a73968ffe6 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -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