From 39507094be62417f76ebd18a0724966ededc7166 Mon Sep 17 00:00:00 2001
From: Simon South <simon@simonsouth.net>
Date: Fri, 29 May 2020 13:53:46 -0400
Subject: [PATCH] tests: Allow passing on systems without support for swap
devices.
* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.
---
tests/syscalls.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
@@ -73,21 +73,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"))
--
2.26.2
The attached patch allows Guix's test suite to pass (and thus, the "guix" package to be built) on systems that lack support for swap devices; that is, systems that not only do not have a swap device enabled but do not have even support for memory paging built into the kernel (e.g. Linux built without CONFIG_SWAP). This might be the case for a small home server, for example, on which the workload is predictable but memory is otherwise at a premium. On these systems the "swapon" and "swapoff" syscalls return ENOSYS ("Function not implemented"). The patch modifies the relevant tests in tests/syscalls.scm to accept this as a valid return value. -- Simon South simon@simonsouth.net