02/02: gnu: dvdisaster: Run regression tests.

[guix-commits]

bavier pushed a commit to branch master
in repository guix.

commit fefcb122ac21b58985f1feba5174d0d9bf96af66
Author: Eric Bavier <address@hidden>
Date:   Mon Jan 7 17:27:59 2019 -0600

    gnu: dvdisaster: Run regression tests.
    
    * gnu/packages/cdrom.scm (dvdisaster)[arguments]: Remove #:tests? argument.
    Add 'check' phase.
---
 gnu/packages/cdrom.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index f7ca51f..cf095a1 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -358,9 +358,15 @@ or @command{xorrisofs} to create ISO 9660 images.")
      `(;; Parallel builds appear to be unsafe, see
        ;; <http://hydra.gnu.org/build/49331/nixlog/1/raw>.
        #:parallel-build? #f
-       #:tests? #f ; no check target
        #:phases
        (modify-phases %standard-phases
+         (replace 'check
+           (lambda _
+             (with-directory-excursion "regtest"
+               (substitute* "common.bash"
+                 (("ISODIR=/var/tmp/regtest") "ISODIR=/tmp"))
+               (for-each invoke (find-files "." "rs.*\\.bash")))
+             #t))
          (add-after 'install 'install-desktop
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((datadir (string-append (assoc-ref outputs "out") 
"/share")))