mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

tests: Gracefully handle ENOSYS return for 'setaffinity'.

Browse source 
Fixes <http://bugs.gnu.org/19646>.
Reported by John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>.

* test-suite/tests/posix.test ("affinity")["setaffinity"]: Wrap in
  'catch' and throw 'unresolved upon ENOSYS.
This commit is contained in:
Ludovic Courtès 2015-03-04 09:49:31 +01:00 • committed by Andy Wingo
parent 05bea208b3
commit 70d8ef786a
1 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test-suite/tests/posix.test
View file

@ -1,6 +1,7 @@
;;;; posix.test --- Test suite for Guile POSIX functions. -*- scheme -*- ;;;; posix.test --- Test suite for Guile POSIX functions. -*- scheme -*-
;;;; ;;;;
;;;; Copyright 2003, 2004, 2006, 2007, 2010, 2012 Free Software Foundation, Inc. ;;;; Copyright 2003, 2004, 2006, 2007, 2010, 2012,
;;;; 2015 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -195,9 +196,18 @@
(pass-if "setaffinity" (pass-if "setaffinity"
(if (and (defined? 'setaffinity) (defined? 'getaffinity)) (if (and (defined? 'setaffinity) (defined? 'getaffinity))
(let ((mask (getaffinity (getpid)))) (catch 'system-error
(setaffinity (getpid) mask) (lambda ()
(equal? mask (getaffinity (getpid)))) (let ((mask (getaffinity (getpid))))
(setaffinity (getpid) mask)
(equal? mask (getaffinity (getpid)))))
(lambda args
;; On some platforms such as sh4-linux-gnu, 'setaffinity'
;; returns ENOSYS.
(let ((errno (system-error-errno args)))
(if (= errno ENOSYS)
(throw 'unresolved)
(apply throw args)))))
(throw 'unresolved)))) (throw 'unresolved))))
;; ;;