me
/
guix
Archived
1
0
Fork 0
Code

gnu: jimtcl: Update to 0.80. 

* gnu/packages/embedded.scm (jimtcl): Update to 0.80.
[arguments]: Add a ‘delete-failing-tests’ phase.
[native-inputs]: Add inetutils.
master
Tobias Geerinckx-Rice 2020-11-09 23:27:22 +01:00
parent 3881d0dc41
commit e35f77e118
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/embedded.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016, 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2016, 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2017, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de> ;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
@ -36,6 +36,7 @@
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module ((guix build utils) #:select (alist-replace)) #:use-module ((guix build utils) #:select (alist-replace))
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module ((gnu packages base) #:prefix base:) #:use-module ((gnu packages base) #:prefix base:)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
@ -487,7 +488,7 @@ SEGGER J-Link and compatible devices.")
(define-public jimtcl (define-public jimtcl
(package (package
(name "jimtcl") (name "jimtcl")
(version "0.79") (version "0.80")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -496,17 +497,26 @@ SEGGER J-Link and compatible devices.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1k88hz0v3bi19xdvlp0i9nsx38imzwpjh632w7326zwbv2wldf0h")))) "06rn60cx9sapc175vxvan87b8j5rkhh5gvvz7343xznzwlr0wcgk"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; Doesn't use autoconf.
(replace 'configure (replace 'configure
;; This package doesn't use autoconf.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(invoke "./configure" (invoke "./configure"
(string-append "--prefix=" out)))))))) (string-append "--prefix=" out)))))
(add-before 'check 'delete-failing-tests
(lambda _
;; XXX All but 1 TTY tests fail (Inappropriate ioctl for device).
(delete-file "tests/tty.test")
#t))
)))
(native-inputs
;; For tests.
`(("inetutils" ,inetutils))) ; for hostname
(home-page "http://jim.tcl.tk/index.html") (home-page "http://jim.tcl.tk/index.html")
(synopsis "Small footprint Tcl implementation") (synopsis "Small footprint Tcl implementation")
(description "Jim is a small footprint implementation of the Tcl programming (description "Jim is a small footprint implementation of the Tcl programming