[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: tests: Allow passing on systems without support f
From: |
guix-commits |
Subject: |
branch master updated: tests: Allow passing on systems without support for swap devices. |
Date: |
Tue, 02 Jun 2020 04:24:33 -0400 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new cb21c14 tests: Allow passing on systems without support for swap
devices.
cb21c14 is described below
commit cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018
Author: Simon South <simon@simonsouth.net>
AuthorDate: Fri May 29 13:53:46 2020 -0400
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>
---
tests/syscalls.scm | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 3823de7..6098a09 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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: tests: Allow passing on systems without support for swap devices.,
guix-commits <=