aboutsummaryrefslogtreecommitdiff
path: root/tests/syscalls.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-11-10 18:14:20 +0100
committerLudovic Courtès <ludo@gnu.org>2014-11-10 22:42:14 +0100
commitccea821befc96a2c5e0c64b1a18eef0f31abe0a7 (patch)
tree96eb82811452b7762690ef6fa90cbc393a4e2348 /tests/syscalls.scm
parent7eda0c567baf1505ba918539d2095e08f328b466 (diff)
downloadguix-ccea821befc96a2c5e0c64b1a18eef0f31abe0a7.tar
guix-ccea821befc96a2c5e0c64b1a18eef0f31abe0a7.tar.gz
syscalls: Add 'mount-points'.
* guix/build/syscalls.scm (mount-points): New procedure. * tests/syscalls.scm ("mount-points"): New test.
Diffstat (limited to 'tests/syscalls.scm')
-rw-r--r--tests/syscalls.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 161e036e19..d65ec82740 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -44,6 +44,9 @@
;; Both return values have been encountered in the wild.
(memv (system-error-errno args) (list EPERM ENOENT)))))
+(test-assert "mount-points"
+ (member "/" (mount-points)))
+
(test-assert "swapon, ENOENT/EPERM"
(catch 'system-error
(lambda ()