15/16: gnu: openjpeg: Enable tests.

[guix-commits]

dannym pushed a commit to branch master
in repository guix.

commit 49d38b9a44d1045133e993f372394f9d3c626a72
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Thu Sep 24 10:48:08 2020 -0400

    gnu: openjpeg: Enable tests.
    
    * gnu/packages/image.scm (openjpeg) [arguments]<#:tests?>: Remove argument.
    <#:configure-flags>[-DBUILD_UNIT_TESTS]: New flag.
    [-DBUILD_TESTING]: New flag.
    [-DOPJ_DATA_ROOT]: New flag.
    <#:phases>['disable-failing-tests]: New phase.
    [native-inputs]: Add openjpeg-data.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/image.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index f4d619e..e8e0c88 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -824,8 +824,25 @@ test suite, including conformance tests (following Rec. 
ITU-T T.803 | ISO/IEC
         (base32 "1dn98d2dfa1lqyxxmab6rrcv52dyhjr4g7i4xf2w54fqsx14ynrb"))))
     (build-system cmake-build-system)
     (arguments
-     '(#:tests? #f           ;TODO: requires a 1.1 GiB data repository
-       #:configure-flags '("-DBUILD_STATIC_LIBS=OFF")))
+     `(#:configure-flags
+       (list
+        "-DBUILD_STATIC_LIBS=OFF"
+        "-DBUILD_UNIT_TESTS=ON"
+        "-DBUILD_TESTING=ON"
+        (string-append "-DOPJ_DATA_ROOT="
+                       (assoc-ref %build-inputs "openjpeg-data")))
+       #:phases
+       (modify-phases %standard-phases
+         ;; To be re-enabled after upstream fixes the bug,
+         ;; https://github.com/uclouvain/openjpeg/issues/1264
+         (add-after 'unpack 'disable-failing-tests
+           (lambda _
+             (substitute* "tests/CMakeLists.txt"
+               (("add_subdirectory\\(nonregression\\)")
+                ""))
+             #t)))))
+    (native-inputs
+     `(("openjpeg-data" ,openjpeg-data))) ; Files for test-suite
     (inputs
      `(("lcms" ,lcms)
        ("libpng" ,libpng)