me
/
guix
Archived
1
0
Fork 0
Code

gnu: fortune-mod: Use G-expressions. 

* gnu/packages/games.scm (fortune-mod)[arguments]:
Rewrite as G-expressions.  Split up misnamed 'fix-build-env phase into
'enter-build-directory, 'copy-cmake-modules, and 'delete-failing-test.
Don't explicitly return #t from phases.
[native-inputs]: Remove input labels.  Remove shlomif-cmake-modules.
master
Tobias Geerinckx-Rice 2022-01-04 02:51:46 +01:00
parent b7c03093eb
commit 106aac634d
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gnu/packages/games.scm
View File

@ -7579,21 +7579,23 @@ original.")
(base32 "1ppzgnffgdcmq6fq4gmdq2ig10ip2bnfgklkb3i8nc6bdxm7pb89")))) (base32 "1ppzgnffgdcmq6fq4gmdq2ig10ip2bnfgklkb3i8nc6bdxm7pb89"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:test-target "check" (list #:test-target "check"
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-build-env (add-after 'unpack 'enter-build-directory
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(use-modules (guix build utils)) (chdir "fortune-mod")))
(let* ((cmake-rules (assoc-ref inputs "cmake-rules"))) (add-after 'enter-build-directory 'copy-cmake-modules
(copy-file cmake-rules (lambda _
(string-append "fortune-mod/cmake/" (copy-file #$shlomif-cmake-modules
(strip-store-file-name cmake-rules))) (string-append "cmake/"
(chdir "fortune-mod") (strip-store-file-name
#$shlomif-cmake-modules)))))
(add-after 'enter-build-directory 'delete-failing-test
(lambda _
;; TODO: Valgrind tests fail for some reason. ;; TODO: Valgrind tests fail for some reason.
;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?) ;; Similar issue: https://github.com/shlomif/fortune-mod/issues/21 (?)
(delete-file "tests/t/valgrind.t") (delete-file "tests/t/valgrind.t")))
#t)))
(add-after 'install 'fix-install-directory (add-after 'install 'fix-install-directory
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Move binary from "games/" to "bin/" and remove the latter. This ;; Move binary from "games/" to "bin/" and remove the latter. This
@ -7604,19 +7606,17 @@ original.")
(games (string-append out "/games"))) (games (string-append out "/games")))
(rename-file (string-append games "/fortune") (rename-file (string-append games "/fortune")
(string-append bin "/fortune")) (string-append bin "/fortune"))
(rmdir games) (rmdir games)))))))
#t))))))
(inputs (list recode)) (inputs (list recode))
(native-inputs (native-inputs
`(("perl" ,perl) (list perl
;; The following is only needed for tests. ;; The following are only needed for tests.
("perl-file-find-object" ,perl-file-find-object) perl-file-find-object
("perl-test-differences" ,perl-test-differences) perl-test-differences
("perl-class-xsaccessor" ,perl-class-xsaccessor) perl-class-xsaccessor
("perl-io-all" ,perl-io-all) perl-io-all
("perl-test-runvalgrind" ,perl-test-runvalgrind) perl-test-runvalgrind
("cmake-rules" ,shlomif-cmake-modules) rinutils))
("rinutils" ,rinutils)))
(home-page "https://www.shlomifish.org/open-source/projects/fortune-mod/") (home-page "https://www.shlomifish.org/open-source/projects/fortune-mod/")
(synopsis "The Fortune Cookie program from BSD games") (synopsis "The Fortune Cookie program from BSD games")
(description "Fortune is a command-line utility which displays a random (description "Fortune is a command-line utility which displays a random