Archived
1
0
Fork 0

gnu: lcov: Update to 1.15.

* gnu/packages/code.scm (lcov): Update to 1.15.
[source]: Use a release tarball.
[inputs]: Replace perl-perlio-gzip with perl-io-compress.
This commit is contained in:
Tobias Geerinckx-Rice 2020-09-22 02:16:01 +02:00
parent bfc0a2ffa8
commit adbcc3ed8c
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -470,60 +470,53 @@ stack traces.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public lcov (define-public lcov
;; Use a recent commit from upstream since the latest official release (package
;; (1.14) doesn't support GCC 9 (see: (name "lcov")
;; https://github.com/linux-test-project/lcov/issues/58). (version "1.15")
(let* ((commit "40580cd65909bc8324ae09b36bca2e178652ff3f") (source
(revision "0") (origin
(version (git-version "1.14" revision commit))) (method url-fetch)
(package (uri (string-append "https://github.com/linux-test-project/lcov"
(name "lcov") "/releases/download/v" version
(version "1.14") "/lcov-" version ".tar.gz"))
(source (origin (sha256
(method git-fetch) (base32 "0fh5z0q5wg2jxr2nn5w7321y0zg9rwk75j3k5hnamjdy6gxa5kf1"))))
(uri (git-reference (build-system gnu-build-system)
(url "https://github.com/linux-test-project/lcov") (arguments
(commit commit))) '(#:test-target "test"
(file-name (git-file-name name version)) #:make-flags (list (string-append "PREFIX="
(sha256 (assoc-ref %outputs "out")))
(base32 #:phases
"0shgmh6fzhnj1qfdl90jgjmlbb1ih1qh879dca8hc58yggy3hqgb")))) (modify-phases %standard-phases
(build-system gnu-build-system) (add-after 'unpack 'patch-pwd
(arguments ;; Lift the requirement of having a shell in PATH.
'(#:test-target "test" (lambda _
#:make-flags (list (string-append "PREFIX=" (substitute* "bin/geninfo"
(assoc-ref %outputs "out"))) (("qw/abs_path/")
#:phases "qw/abs_path getcwd/"))
(modify-phases %standard-phases (substitute* '("bin/lcov" "bin/geninfo")
(add-after 'unpack 'patch-pwd (("`pwd`")
;; Lift the requirement of having a shell in PATH. "getcwd()"))
(lambda _ #t))
(substitute* "bin/geninfo" (delete 'configure) ;no configure script
(("qw/abs_path/") (add-after 'install 'wrap
"qw/abs_path getcwd/")) (lambda* (#:key outputs #:allow-other-keys)
(substitute* '("bin/lcov" "bin/geninfo") (let ((out (assoc-ref outputs "out")))
(("`pwd`") (wrap-program (string-append out "/bin/geninfo")
"getcwd()")) `("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))
#t)) #t)))))
(delete 'configure) ;no configure script (inputs `(("perl" ,perl)
(add-after 'install 'wrap ("perl-io-compress" ,perl-io-compress)
(lambda* (#:key outputs #:allow-other-keys) ("perl-json" ,perl-json)))
(let ((out (assoc-ref outputs "out"))) (home-page "http://ltp.sourceforge.net/coverage/lcov.php")
(wrap-program (string-append out "/bin/geninfo") (synopsis "Code coverage tool that enhances GNU gcov")
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))) (description "LCOV is an extension of @command{gcov}, a tool part of the
#t)))))
(inputs `(("perl" ,perl)
("perl-json" ,perl-json)
("perl-perlio-gzip" ,perl-perlio-gzip)))
(home-page "http://ltp.sourceforge.net/coverage/lcov.php")
(synopsis "Code coverage tool that enhances GNU gcov")
(description "LCOV is an extension of @command{gcov}, a tool part of the
GNU@tie{}Binutils, which provides information about what parts of a program GNU@tie{}Binutils, which provides information about what parts of a program
are actually executed (i.e., \"covered\") while running a particular test are actually executed (i.e., \"covered\") while running a particular test
case. The extension consists of a set of Perl scripts which build on the case. The extension consists of a set of Perl scripts which build on the
textual @command{gcov} output to implement the following enhanced textual @command{gcov} output to implement the following enhanced
functionality such as HTML output.") functionality such as HTML output.")
(license license:gpl2+)))) (license license:gpl2+)))
(define-public kcov (define-public kcov
(package (package