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")