branch: master
commit 195fbe70458ffba0b65fab98990921f46a5dafd4
Author: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Commit: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Improve assertion message.
---
test/context-coloring-test.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/context-coloring-test.el b/test/context-coloring-test.el
index 64cbd9d..d49dd6a 100644
--- a/test/context-coloring-test.el
+++ b/test/context-coloring-test.el
@@ -94,8 +94,8 @@ invoke when it is done."
(match-beginning 1)
(match-end 1))))
(= level actual-level)))))
- (ert-fail (format "Expected level at point %s to be %s; was %s"
- point level actual-level))))
+ (ert-fail (format "Expected level in region [%s, %s), which is
\"%s\", to be %s; but at point %s, it was %s"
+ start end (buffer-substring-no-properties start
end) level point actual-level))))
(setq i (+ i 1)))))
(defun context-coloring-test-assert-message (expected)
