[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: cobol: Run cobol85 test-suite.
From: |
Efraim Flashner |
Subject: |
01/01: gnu: cobol: Run cobol85 test-suite. |
Date: |
Thu, 25 Jan 2018 13:29:30 -0500 (EST) |
efraim pushed a commit to branch master
in repository guix.
commit 8020ecc756861070a6ace946f7ac22b4c35db6a6
Author: Efraim Flashner <address@hidden>
Date: Thu Jan 25 20:28:20 2018 +0200
gnu: cobol: Run cobol85 test-suite.
* gnu/packages/cobol.scm (gnucobol)[arguments]: Add phase to place
test-suite tarball in test directory. Change test target.
[native-inputs]: Add perl.
[inputs]: Download test-suite tarball.
---
gnu/packages/cobol.scm | 24 ++++++++++++++++++++----
1 file changed, 20 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/cobol.scm b/gnu/packages/cobol.scm
index f8f3592..752e028 100644
--- a/gnu/packages/cobol.scm
+++ b/gnu/packages/cobol.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017 Efraim Flashner <address@hidden>
+;;; Copyright © 2017, 2018 Efraim Flashner <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -24,7 +24,8 @@
#:use-module (guix download)
#:use-module (gnu packages databases)
#:use-module (gnu packages multiprecision)
- #:use-module (gnu packages ncurses))
+ #:use-module (gnu packages ncurses)
+ #:use-module (gnu packages perl))
(define-public gnucobol
(package
@@ -42,11 +43,26 @@
(arguments
'(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
- "/lib"))))
+ "/lib"))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'place-cobol85-test-suite
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((newcob (assoc-ref inputs "newcob")))
+ (copy-file newcob "tests/cobol85/newcob.val.Z")))))
+ #:test-target "checkall"))
+ (native-inputs
+ `(("perl" ,perl)))
(inputs
`(("bdb" ,bdb)
("gmp" ,gmp)
- ("ncurses" ,ncurses)))
+ ("ncurses" ,ncurses)
+ ("newcob" ,(origin
+ (method url-fetch)
+ (uri
"http://www.itl.nist.gov/div897/ctg/suites/newcob.val.Z")
+ (sha256
+ (base32
+
"1yb1plmv4firfnbb119r2vh1hay221w1ya34nyz0qwsxppfr56hy"))))))
(build-system gnu-build-system)
(home-page "https://savannah.gnu.org/projects/gnucobol/")
(synopsis "A modern COBOL compiler")