ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cobol: Run cobol85 test-suite.

Browse source 
* 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.
This commit is contained in:
Efraim Flashner 2018-01-25 20:28:20 +02:00
parent 8c71a52cd9
commit 8020ecc756
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/cobol.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -24,7 +24,8 @@ (define-module (gnu packages cobol)
#:use-module (guix download) #:use-module (guix download)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages multiprecision) #:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses)) #:use-module (gnu packages ncurses)
#:use-module (gnu packages perl))
(define-public gnucobol (define-public gnucobol
(package (package
@ -42,11 +43,26 @@ (define-public gnucobol
(arguments (arguments
'(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" '(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out") (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 (inputs
`(("bdb" ,bdb) `(("bdb" ,bdb)
("gmp" ,gmp) ("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) (build-system gnu-build-system)
(home-page "https://savannah.gnu.org/projects/gnucobol/") (home-page "https://savannah.gnu.org/projects/gnucobol/")
(synopsis "A modern COBOL compiler") (synopsis "A modern COBOL compiler")