diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-07-04 02:56:02 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-07-12 16:15:30 +0200 |
| commit | 0bc6fe323d34aabc7f51fa80b8872a2c1770d32a (patch) | |
| tree | 9bdf1dd7363cf0398683faf3d7197bbce4b54fd7 /tests/syscalls.scm | |
| parent | 839ee8d5477bf75764afe18d9cb2addc7c0acf05 (diff) | |
syscalls: Add network-interface-running?
* guix/build/syscalls.scm (network-interface-running?): New variable.
Export it.
* tests/syscalls.scm: Add test.
Co-authored-by: John Darrington <jmd@gnu.org>
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 8c048e61094..2b5c4c3be11 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -361,6 +361,16 @@ | |||
| 361 | (lambda args | 361 | (lambda args |
| 362 | (system-error-errno args))))) | 362 | (system-error-errno args))))) |
| 363 | 363 | ||
| 364 | (test-equal "loopback-network-interface-running?" | ||
| 365 | ENODEV | ||
| 366 | (and (network-interface-running? "lo") | ||
| 367 | (catch 'system-error | ||
| 368 | (lambda () | ||
| 369 | (network-interface-running? "nonexistent") | ||
| 370 | #f) | ||
| 371 | (lambda args | ||
| 372 | (system-error-errno args))))) | ||
| 373 | |||
| 364 | (test-skip (if (zero? (getuid)) 1 0)) | 374 | (test-skip (if (zero? (getuid)) 1 0)) |
| 365 | (test-assert "set-network-interface-flags" | 375 | (test-assert "set-network-interface-flags" |
| 366 | (let ((sock (socket AF_INET SOCK_STREAM 0))) | 376 | (let ((sock (socket AF_INET SOCK_STREAM 0))) |