Ellide test context string, if long.

ltest/src/ltest/constants.clj

@@ -7,6 +7,7 @@
 (def assertion-indent (string/join (repeat 6 " ")))
 
 (def max-len 80)
+(def max-len-assertion-str 26)
 (def min-elide 3)
 (def elide-space 2)
 (def status-brackets 2)

ltest/src/ltest/runner.clj

@@ -68,18 +68,26 @@
                           (string/join (repeat elide-count ".")))
             (color-status status))))
 
+(defn contexts-str
+  []
+  (let [ctx-str (test/testing-contexts-str)
+        len-ctx-str (count ctx-str)
+        max-len const/max-len-assertion-str
+        len (if (< len-ctx-str max-len) len-ctx-str max-len)
+        ctx-abbr (subs ctx-str 0 len)
+        ellip (if (< len len-ctx-str) " ..." "")]
+    (if (empty? ctx-abbr)
+      ""
+      (format " (%s%s)" ctx-abbr ellip))))
+
 (defn line-format
   "Sadly, padded string support in `format` isn't quite as flexible as we
   would like, thus this function. This might be possible to do more elgantly
   with Clojure's Common-Lisp-inspired `cl-format` ..."
   ([prefix idx status]
    (line-format prefix idx "" status))
   ([prefix idx postfix status]
-   (let [ctx-str (test/testing-contexts-str)
-         line (format "%s assertion %s%s"
-                      prefix
-                      idx
-                      (if (empty? ctx-str) "" (str " (" ctx-str ")")))
+   (let [line (format "%s assertion %s%s" prefix idx (contexts-str))
          len (+ (count line)
                 (count postfix)
                 const/elide-space