From ccea821befc96a2c5e0c64b1a18eef0f31abe0a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 10 Nov 2014 18:14:20 +0100
Subject: syscalls: Add 'mount-points'.

* guix/build/syscalls.scm (mount-points): New procedure.
* tests/syscalls.scm ("mount-points"): New test.
---
 tests/syscalls.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tests/syscalls.scm')

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 ()
-- 
cgit v1.2.3