diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-15 19:47:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-16 00:52:19 +0200 |
| commit | 6d2b43915f8a628588f03136b3008902f7643e06 (patch) | |
| tree | 5dc42a1bd3dcdc9afd61723303e3f8fbb59274ad /tests | |
| parent | 9f088725c087c5d49dcbbb26d45dba4af6b0cad6 (diff) | |
syscalls: 'terminal-columns' ignores non-file ports.
* guix/build/syscalls.scm (terminal-columns): Call
'terminal-window-size' only when PORT is a file port.
* tests/syscalls.scm ("terminal-columns non-file port"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/syscalls.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 1b443be0c8b..24ea8f5e60b 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -257,4 +257,8 @@ | |||
| 257 | (test-assert "terminal-columns" | 257 | (test-assert "terminal-columns" |
| 258 | (> (terminal-columns) 0)) | 258 | (> (terminal-columns) 0)) |
| 259 | 259 | ||
| 260 | (test-assert "terminal-columns non-file port" | ||
| 261 | (> (terminal-columns (open-input-string "Join us now, share the software!")) | ||
| 262 | 0)) | ||
| 263 | |||
| 260 | (test-end) | 264 | (test-end) |