#!/bin/env guile
!#

(use-modules ((gnu packages base)
              #:select (coreutils))
             ((guix packages)
              #:select (package origin base32))
             ((guix download)
              #:select (url-fetch))
             ((guix build-system gnu)
              #:select (gnu-build-system))
             ((guix licenses)
              #:select (expat)))

(package
  (name "roundup")
  (version "0.0.6")
  (source
    (origin
      (method url-fetch)
      (uri (string-append "https://github.com/bmizerany/roundup/archive/v" version ".tar.gz"))
      (sha256
        (base32 "077h6qby827zwj82w1bpxp6dm812w5ypr6hy9g2wprsvxm1i0x10"))))
  (build-system gnu-build-system)
  (arguments
    `(#:phases
      (modify-phases %standard-phases
        (replace 'configure
          (lambda* (#:key inputs outputs (configure-flags '()) #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (apply invoke
                `("./configure"
                  ,(string-append "--prefix=" out)
                  ,(string-append "--sysconfdir=/etc")
                  ,@configure-flags))))))))
  (synopsis "Testing framework for shell scripts")
  (description "roundup - kills shell eating bugs and weeds

roundup is a unit testing tool for running roundup test plans which are written
in any POSIX shell.  Each test in a plan is run in its own isolated sandbox.  A
test can pass, be ignored, or fail.  Failed tests output their `set -x` trace.")
  (home-page "http://bmizerany.github.io/roundup/")
  (license expat))