02/03: gnu: rosegarden: Run tests.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 6e55c1732cabe0f3d681b3fd901de7cb067ddb5f
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun Jan 8 13:06:17 2023 +0100

    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