diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-10 18:14:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-10 22:42:14 +0100 |
| commit | ccea821befc96a2c5e0c64b1a18eef0f31abe0a7 (patch) | |
| tree | 96eb82811452b7762690ef6fa90cbc393a4e2348 /tests | |
| parent | 7eda0c567baf1505ba918539d2095e08f328b466 (diff) | |
syscalls: Add 'mount-points'.
* guix/build/syscalls.scm (mount-points): New procedure.
* tests/syscalls.scm ("mount-points"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/syscalls.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 161e036e194..d65ec827400 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -44,6 +44,9 @@ | |||
| 44 | ;; Both return values have been encountered in the wild. | 44 | ;; Both return values have been encountered in the wild. |
| 45 | (memv (system-error-errno args) (list EPERM ENOENT))))) | 45 | (memv (system-error-errno args) (list EPERM ENOENT))))) |
| 46 | 46 | ||
| 47 | (test-assert "mount-points" | ||
| 48 | (member "/" (mount-points))) | ||
| 49 | |||
| 47 | (test-assert "swapon, ENOENT/EPERM" | 50 | (test-assert "swapon, ENOENT/EPERM" |
| 48 | (catch 'system-error | 51 | (catch 'system-error |
| 49 | (lambda () | 52 | (lambda () |