futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: asunder: Update to 3.0.1.

Browse Source 
* gnu/packages/cdrom.scm (asunder): Update to 3.0.1.
[arguments]: Add a new 'fix-tests phase.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-23 02:00:00 +02:00
parent 62e917a0c6
commit 56f954e305
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
gnu/packages/cdrom.scm
View File

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