ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Allow passing on systems without support for swap devices.

Browse source 
* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Simon South 2020-05-29 13:53:46 -04:00 committed by Mathieu Othacehe
parent a7dff9553c
commit cb21c14b0a
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/syscalls.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2020 Simon South <simon@simonsouth.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -73,21 +74,21 @@ (define temp-file
;; Note: 'utimensat' does not change 'ctime'. ;; Note: 'utimensat' does not change 'ctime'.
(list (stat:mtime st) (stat:atime st))))) (list (stat:mtime st) (stat:atime st)))))
(test-assert "swapon, ENOENT/EPERM" (test-assert "swapon, ENOSYS/ENOENT/EPERM"
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
(swapon "/does-not-exist") (swapon "/does-not-exist")
#f) #f)
(lambda args (lambda args
(memv (system-error-errno args) (list EPERM ENOENT))))) (memv (system-error-errno args) (list EPERM ENOENT ENOSYS)))))
(test-assert "swapoff, ENOENT/EINVAL/EPERM" (test-assert "swapoff, ENOSYS/ENOENT/EINVAL/EPERM"
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
(swapoff "/does-not-exist") (swapoff "/does-not-exist")
#f) #f)
(lambda args (lambda args
(memv (system-error-errno args) (list EPERM EINVAL ENOENT))))) (memv (system-error-errno args) (list EPERM EINVAL ENOENT ENOSYS)))))
(test-assert "mkdtemp!" (test-assert "mkdtemp!"
(let* ((tmp (or (getenv "TMPDIR") "/tmp")) (let* ((tmp (or (getenv "TMPDIR") "/tmp"))