diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2018-01-25 20:28:20 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2018-01-25 20:29:21 +0200 |
| commit | 8020ecc756861070a6ace946f7ac22b4c35db6a6 (patch) | |
| tree | f0692de394be9bcbba86b7ecdc72d8962128c026 | |
| parent | 8c71a52cd9a5f379a5101e40349789f27ff2cc06 (diff) | |
| download | guix-8020ecc756861070a6ace946f7ac22b4c35db6a6.tar.gz guix-8020ecc756861070a6ace946f7ac22b4c35db6a6.zip | |
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.
| -rw-r--r-- | gnu/packages/cobol.scm | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/gnu/packages/cobol.scm b/gnu/packages/cobol.scm index f8f35928a7..752e028374 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 <efraim@flashner.co.il> +;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; 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") |