tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 18:41:54 +02:00
Code Activity

syscalls: Add 'mount-points'.

Browse Source 
* guix/build/syscalls.scm (mount-points): New procedure.
* tests/syscalls.scm ("mount-points"): New test.
This commit is contained in:
Ludovic Courtès
2014-11-10 18:14:20 +01:00
parent 7eda0c567b
commit ccea821bef
2 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/syscalls.scm
+3
View File
@@ -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 ()