summaryrefslogtreecommitdiff
path: root/tests/syscalls.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/syscalls.scm')
-rw-r--r--tests/syscalls.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 1b443be0c8..24ea8f5e60 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -257,4 +257,8 @@
(test-assert "terminal-columns"
(> (terminal-columns) 0))
+(test-assert "terminal-columns non-file port"
+ (> (terminal-columns (open-input-string "Join us now, share the software!"))
+ 0))
+
(test-end)