branch: externals/assess
commit 63e934c6f2e502642dc1c915ec7576b92cebfde1
Author: Phillip Lord <phillip.l...@russet.org.uk>
Commit: Phillip Lord <phillip.l...@russet.org.uk>
State that text properties are ignored
Add an explicit statement that assess= ignores text properties, by
virtue of using string=. Add a test to support this.
Closes #11
---
assess.el | 4 +++-
test/assess-test.el | 15 +++++++++++++++
2 files changed, 18 insertions(+), 1 deletion(-)
diff --git a/assess.el b/assess.el
index fdde8174de..7cadab2c46 100644
--- a/assess.el
+++ b/assess.el
@@ -470,7 +470,9 @@ afterwards for cleanup by the operating system."
Equality in this sense means compare the contents in a way which
is appropriate for the type of the two arguments. So, if they are
strings, the compare strings, if buffers, then compare the buffer
-contents and so on."
+contents and so on.
+
+Text properties in strings or buffers are ignored."
(string=
(assess-to-string a)
(assess-to-string b)))
diff --git a/test/assess-test.el b/test/assess-test.el
index 4fa902daf2..8158010752 100644
--- a/test/assess-test.el
+++ b/test/assess-test.el
@@ -526,4 +526,19 @@ This also tests the advice on string=."
;; https://github.com/phillord/assess/issues/5
(ert-deftest issue-5-test-example ()
(should-not (assess-indentation= 'fundamental-mode "foo" "bar")))
+
+
+(ert-deftest strings-with-unequal-properties ()
+ (should
+ (assess=
+ (propertize "hello" 'property 1)
+ "hello"))
+ (should
+ (assess-with-temp-buffers
+ ((a (insert ";; Commented")
+ (emacs-lisp-mode)
+ (font-lock-ensure))
+ (b (insert ";; Commented")
+ (font-lock-ensure)))
+ (assess= a b))))
;; #+end_src
