summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/ui.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/ui.scm b/tests/ui.scm
index f7810d7..4189e6c 100644
--- a/tests/ui.scm
+++ b/tests/ui.scm
@@ -35,4 +35,12 @@
"
(cut source-in-context <> 1 2)))
+(test-equal "display source in context on 0th line"
+ (string-append "(foo "
+ (colorize-string "(bar)" 'BOLD 'RED)
+ ")
+")
+ (call-with-input-string "(foo (bar))"
+ (cut source-in-context <> 0 5)))
+
(test-end "ui")