03/03: gnu: dino: Run tests.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit aaf4694b9fddf3ab392e367fc0bfd93ca64bed7d
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Sat Jul 2 13:33:07 2022 +0200

    gnu: dino: Run tests.
    
    * gnu/packages/messaging.scm (dino)[arguments]<#:tests?>: Drop.
    <#:configure-flags>: Add “-DBUILD_TESTS=true”.
    <#:phases>: Replace ‘check’ with manual invocations of the test binaries.
---
 gnu/packages/messaging.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index 425c4e6ac1..a9906bfd29 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -1380,7 +1380,7 @@ Encryption to Gajim.")
     (build-system cmake-build-system)
     (outputs '("out" "debug"))
     (arguments
-     (list #:tests? #f
+     (list #:configure-flags #~(list "-DBUILD_TESTS=true")
            #:parallel-build? #f         ; not supported
            #:modules '((guix build cmake-build-system)
                        ((guix build glib-or-gtk-build-system) #:prefix 
glib-or-gtk:)
@@ -1399,7 +1399,13 @@ Encryption to Gajim.")
                      (wrap-program dino
                        `("GST_PLUGIN_SYSTEM_PATH" ":" prefix 
(,gst-plugin-path))))))
                (add-after 'install 'glib-or-gtk-wrap
-                 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
+                 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (invoke "./libdino-test")
+                     (invoke "./signal-protocol-vala-test")
+                     (invoke "./xmpp-vala-test")))))))
     (native-inputs
      (list gettext-minimal
            `(,glib "bin")