From 76dae6bcf47a1a127f53b43fc96d73ed5048c5a9 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Thu, 23 Feb 2017 14:37:42 +0000
Subject: shunit2 package

---
 gn/packages/bioinformatics.scm |  1 +
 gn/packages/shell.scm          | 47 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 48 insertions(+)
 create mode 100644 gn/packages/shell.scm

diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 2dcaf62..0533371 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -940,6 +940,7 @@ association studies (GWAS).")
       (native-inputs
        `(("ldc" ,ldc)
          ("lz4" ,lz4)
+         ("shunit2" ,shunit2)
          ("zlib" ,zlib)
          ("coreutils" ,coreutils) ; for env
          ("perl" ,perl) ; Needed for htslib
diff --git a/gn/packages/shell.scm b/gn/packages/shell.scm
new file mode 100644
index 0000000..185ac17
--- /dev/null
+++ b/gn/packages/shell.scm
@@ -0,0 +1,47 @@
+(define-module (gn packages shell)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  )
+
+(define-public shunit2
+  (let ((commit "60dd60bcd1573befe38465010263ab242e55811d"))
+    (package
+      (name "shunit2")
+      (version (string-append "2.1.7-" (string-take commit 7)))
+      (source (origin
+        (method git-fetch)
+        (uri (git-reference
+          (url "https://github.com/kward/shunit2.git")
+          (commit commit)))
+        (file-name (string-append name "-" version "-checkout"))
+        (sha256
+         (base32 "11savxc6qliqv25kv59qak6j7syjv95hbpmq1szn1mzn32g2gc25"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(
+         #:tests? #f ;; no tests-suite
+         #:phases
+         (modify-phases %standard-phases
+                        (delete 'configure)
+                        (delete 'build)
+                        (replace 'install
+                                 (lambda* (#:key outputs #:allow-other-keys)
+                                   (let* ((out (assoc-ref outputs "out"))
+                                          (bin (string-append out "/bin")))
+                                     (write (string-append "****************" bin))
+                                     (copy-file "2.1/src/shunit2" (string-append bin "/shunit2"))
+                                     #t
+                                          ))))
+           ))
+      (home-page "https://code.google.com/archive/p/shunit2/")
+      (synopsis "xUnit based unit testing for Unix shell scripts")
+      (description
+       "shUnit2 is a xUnit unit test framework for Bourne based shell
+scripts, and it is designed to work in a similar manner to JUnit,
+PyUnit, etc. If you have ever had the desire to write a unit test for
+a shell script, shUnit2 can do the job.")
+      (license license:lgpl2.0))))
-- 
cgit v1.2.3