guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/03: gnu: openjpeg: Enable tests.


From: guix-commits
Subject: 01/03: gnu: openjpeg: Enable tests.
Date: Sun, 31 Jan 2021 17:22:42 -0500 (EST)

lfam pushed a commit to branch core-updates
in repository guix.

commit ce5f9afcd1b3f79f254de6a77775f2c2fe6800fe
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]: Enable the test suite.
    Pass -DBUILD_UNIT_TESTS, -DBUILD_TESTING, and -DOPJ_DATA_ROOT
    to #:configure-flags. Add a new 'disable-failing-tests' phase.
    [native-inputs]: Add openjpeg-data.
    
    Signed-off-by: Leo Famulari <leo@famulari.name>
---
 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 bf7c104..5e7f13e 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -830,8 +830,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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]