rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: mit-krb5: Patch and enable tests. 

* gnu/packages/mit-krb5.scm (mit-krb5): Enable patched tests.
This commit is contained in:
Andreas Enge 2013-01-20 22:29:55 +01:00
parent f6ab05509c
commit 079fca3be8
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/mit-krb5.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2012, 2013 Andreas Enge <andreas@enge.fr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -43,22 +43,35 @@
)) ))
(arguments (arguments
(lambda (system) (lambda (system)
`(#:tests? #f `(#:phases
#:phases
(alist-replace (alist-replace
'unpack 'unpack
(lambda* (#:key source #:allow-other-keys) (lambda* (#:key source #:allow-other-keys)
(system* "echo" source)
(let ((inner (let ((inner
(substring source (substring source
(string-index-right source #\k) (string-index-right source #\k)
(string-index-right source #\-)))) (string-index-right source #\-))))
(system* "echo" inner)
(and (zero? (system* "tar" "xvf" source)) (and (zero? (system* "tar" "xvf" source))
(zero? (system* "tar" "xvf" (string-append inner ".tar.gz"))) (zero? (system* "tar" "xvf" (string-append inner ".tar.gz")))
(chdir inner) (chdir inner)
(chdir "src")))) (chdir "src"))))
%standard-phases)))) (alist-replace
'check
(lambda* (#:key inputs #:allow-other-keys #:rest args)
(let ((perl (assoc-ref inputs "perl"))
(check (assoc-ref %standard-phases 'check)))
(substitute* "plugins/kdb/db2/libdb2/test/run.test"
(("/bin/cat") (string-append perl "/bin/perl")))
(substitute* "plugins/kdb/db2/libdb2/test/run.test"
(("D/bin/sh") (string-append "D" (which "bash"))))
(substitute* "plugins/kdb/db2/libdb2/test/run.test"
(("bindir=/bin/.") (string-append "bindir=" perl "/bin")))
;; use existing files and directories in test
(substitute* "tests/resolve/Makefile"
(("-p telnet") "-p 23"))
;; avoid service names since /etc/services is unavailable
(apply check args)))
%standard-phases)))))
(synopsis "MIT Kerberos 5") (synopsis "MIT Kerberos 5")
(description (description
"Massachusetts Institute of Technology implementation of Kerberos. "Massachusetts Institute of Technology implementation of Kerberos.