From 4d5a3614821ce74e418bb3c9b8eae8667edccaf0 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Tue, 9 May 2023 23:38:01 +0200
Subject: Guix: build the test coverage.

---
 guix.scm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/guix.scm b/guix.scm
index f27bb56..78747a9 100644
--- a/guix.scm
+++ b/guix.scm
@@ -7,6 +7,7 @@
   #:use-module (gnu packages code)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cppi)
+  #:use-module (gnu packages gd)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
@@ -248,6 +249,10 @@
               (invoke "make" "-j8" "distcheck"
                       (format #f "DISTCHECK_CONFIGURE_FLAGS=SHELL=~a" (which "bash")))
               (invoke "tar" "xf" #$(format #f "disfluid-~a.tar.gz" disfluid:package-version))
+              (invoke "make" "-j8" "coverage"
+                      "XFAIL_TESTS = test-setlocale1.sh test-vc-list-files-git.sh"
+                      "TESTS_ENVIRONMENT = CK_TIMEOUT_MULTIPLIER=100"
+                      #$(format #f "COVERAGE_OUT = disfluid-~a/doc/coverage" disfluid:package-version))
               (with-directory-excursion
                   #$(format #f "disfluid-~a" disfluid:package-version)
                   (substitute* "po/Makefile.in.in"
@@ -344,7 +349,7 @@
                      (delete 'check)))))))
            gtk check (list glib "bin")
            gobject-introspection imagemagick
-           indent cppi vala))
+           indent cppi vala lcov perl-gd))
     (inputs
      (list gtk libadwaita check gnu-gettext gnutls))
     (home-page "https://labo.planete-kraus.eu/disfluid.git")
@@ -356,7 +361,7 @@
   (inherit disfluid-boot)
   (name "disfluid")
   (source #f)
-  (outputs (list "out" "complete-corresponding-source.tar.gz"))
+  (outputs (list "out" "coverage" "complete-corresponding-source.tar.gz"))
   (arguments
    (list
     #:phases
@@ -379,7 +384,13 @@
           (lambda _
             (mkdir-p (string-append #$output "/share/disfluid"))
             (copy-file #+(file-append disfluid-boot "/complete-source.tar.gz")
-                       #$output:complete-corresponding-source.tar.gz))))))
+                       #$output:complete-corresponding-source.tar.gz)))
+        (add-after 'install 'install-coverage
+          (lambda _
+            (mkdir-p (string-append #$output:coverage "/share/disfluid"))
+            (copy-recursively "doc/coverage"
+                              (string-append #$output:coverage "/share/disfluid/coverage")
+                              #:follow-symlinks? #t))))))
   (native-inputs
    (list valgrind (list glibc "debug") pkg-config
          texinfo (texlive-updmap.cfg (list texlive)) tar gzip))
-- 
cgit v1.2.3