guix-commits
[Top][All Lists]
Advanced

[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")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]