diff options
| author | Simon South <simon@simonsouth.net> | 2020-05-29 13:53:46 -0400 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-02 10:24:03 +0200 |
| commit | cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018 (patch) | |
| tree | b2e54035834fce1b2ab756e1d8a72a9169f0555a /tests/syscalls.scm | |
| parent | a7dff9553cb56ed92f7b564223e20eb60cdf29dd (diff) | |
| download | guix-cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018.tar guix-cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018.tar.gz | |
tests: Allow passing on systems without support for swap devices.
* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 3823de7c1e..6098a09437 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org> +;;; Copyright © 2020 Simon South <simon@simonsouth.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -73,21 +74,21 @@ ;; Note: 'utimensat' does not change 'ctime'. (list (stat:mtime st) (stat:atime st))))) -(test-assert "swapon, ENOENT/EPERM" +(test-assert "swapon, ENOSYS/ENOENT/EPERM" (catch 'system-error (lambda () (swapon "/does-not-exist") #f) (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 (lambda () (swapoff "/does-not-exist") #f) (lambda args - (memv (system-error-errno args) (list EPERM EINVAL ENOENT))))) + (memv (system-error-errno args) (list EPERM EINVAL ENOENT ENOSYS))))) (test-assert "mkdtemp!" (let* ((tmp (or (getenv "TMPDIR") "/tmp")) |