ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 22:50:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add guile-tap.

Browse source 
* gnu/packages/guile-xyz.scm (guile-tap): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Antero Mejr 2022-06-16 21:53:56 +00:00 committed by Ludovic Courtès
parent c3afbd05bf
commit e56f2cab60
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/guile-xyz.scm
View file

@ -41,6 +41,7 @@
;;; Copyright © 2021, 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -83,6 +84,7 @@ (define-module (gnu packages guile-xyz)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages haskell-xyz) ;pandoc
#:use-module (gnu packages hurd)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
@ -5019,3 +5021,43 @@ (define-public lokke
in two different guises.")
;; Dual license: LGPLv2.1+ or EPLv1.0+ at the user's option.
(license (list license:lgpl2.1+ license:epl1.0)))))
(define-public guile-tap
(package
(name "guile-tap")
(version "0.4.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ft/guile-tap")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"04ip5cbvsjjcicsri813f4711yh7db6fvc2px4788rl8p1iqvi6x"))))
(build-system gnu-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "Makefile"
(("PREFIX = /usr/local") (string-append "PREFIX="
#$output)))))
(replace 'build
(lambda _
(invoke "make")
(invoke "make" "-C" "doc" "man")
(invoke "make" "install")))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "make" "test")))))))
(native-inputs (list guile-3.0 pandoc))
(home-page "https://github.com/ft/guile-tap")
(synopsis "Guile test framework that emits TAP output")
(description
"guile-tap is a library for GNU Guile that implements a framework for
specifying test cases that emit output that adheres to the Test Anything
Protocol (TAP). It comes with an experimental harness (tap-harness).")
(license license:bsd-2)))