diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-05-28 23:47:25 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-05-28 23:47:25 +0200 |
| commit | 6f8cda185e3439777e1c3252cb3d75f0b19376fe (patch) | |
| tree | db8116ea8dfbf6ae490b9b3c220e6d9f67755d63 /tests/syscalls.scm | |
| parent | 1622637bb74d03cd3070ce14195252ead032d99d (diff) | |
| parent | 6c1db130a8a0cad4ff0c27f8f2e7274682a50ca4 (diff) | |
| download | guix-6f8cda185e3439777e1c3252cb3d75f0b19376fe.tar guix-6f8cda185e3439777e1c3252cb3d75f0b19376fe.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 8db45b41b6..e20f0600bc 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -266,6 +266,14 @@ (close-port file) result))))))))) +(test-equal "set-thread-name" + "Syscall Test" + (let ((name (thread-name))) + (set-thread-name "Syscall Test") + (let ((new-name (thread-name))) + (set-thread-name name) + new-name))) + (test-assert "all-network-interface-names" (match (all-network-interface-names) (((? string? names) ..1) |