01/07: gnu: asunder: Update to 3.0.1.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 56f954e30534559021d0b36b1dcda5633e5e6922
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 23 02:00:00 2023 +0200

    gnu: asunder: Update to 3.0.1.
    
    * gnu/packages/cdrom.scm (asunder): Update to 3.0.1.
    [arguments]: Add a new 'fix-tests phase.
---
 gnu/packages/cdrom.scm | 44 ++++++++++++++++++++++++++------------------
 1 file changed, 26 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index c0fecc9fdc..130fffc127 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -734,33 +734,41 @@ information is written to standard error.")
 (define-public asunder
   (package
     (name "asunder")
-    (version "2.9.7")
+    (version "3.0.1")
     (source
      (origin
        (method url-fetch)
        (uri
-        (string-append "http://www.littlesvr.ca/asunder/releases/asunder-";
+        (string-append "https://www.littlesvr.ca/asunder/releases/asunder-";
                        version ".tar.bz2"))
        (sha256
-        (base32 "1x3l308ss0iqhz90qyjb94gyd8b4piyrm2nzjmg5kf049k9prjf1"))))
+        (base32 "0srpag9bca76iiv8766kxmbvhsri58k15xp70348frkvp7hy4s48"))))
     (build-system glib-or-gtk-build-system)
     (arguments
      '(#:out-of-source? #f
-       #:phases (modify-phases %standard-phases
-                  (add-after 'install 'wrap
-                    (lambda* (#:key inputs outputs #:allow-other-keys)
-                      (let ((program (string-append (assoc-ref outputs "out")
-                                                    "/bin/asunder")))
-                        (define (bin-directory input-name)
-                          (string-append (assoc-ref inputs input-name) "/bin"))
-                        (wrap-program program
-                          `("PATH" ":" prefix
-                            ,(map bin-directory (list "cdparanoia"
-                                                      "lame"
-                                                      "vorbis-tools"
-                                                      "flac"
-                                                      "opus-tools"
-                                                      "wavpack"))))))))))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'check 'fix-tests
+           ;; As of 3.0.1, there are no ‘real’ tests under src/, and the linty
+           ;; test under po/ is broken.  Still, it's trivial to fix.
+           (lambda _
+             (let ((file (open-file "po/POTFILES.in" "a")))
+               (format file "~%src/upload.c~%")
+               (close-port file))))
+         (add-after 'install 'wrap
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((program (string-append (assoc-ref outputs "out")
+                                           "/bin/asunder")))
+               (define (bin-directory input-name)
+                 (string-append (assoc-ref inputs input-name) "/bin"))
+               (wrap-program program
+                 `("PATH" ":" prefix
+                   ,(map bin-directory (list "cdparanoia"
+                                             "lame"
+                                             "vorbis-tools"
+                                             "flac"
+                                             "opus-tools"
+                                             "wavpack"))))))))))
     (native-inputs (list intltool pkg-config))
     ;; TODO: Add the necessary packages for Musepack encoding.
     (inputs `(("gtk+-2" ,gtk+-2)