branch: elpa/adoc-mode
commit 06f9792fcd2c7d88abefa10e3c5bee2df20e7ffe
Author: Florian Kaufmann <sensor...@gmail.com>
Commit: Florian Kaufmann <sensor...@gmail.com>
added further simple tests for constrained/uncronstrained quotes
---
adoc-mode-test.el | 20 ++++++++++++++++----
1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/adoc-mode-test.el b/adoc-mode-test.el
index f051ef2665..f576cf44df 100644
--- a/adoc-mode-test.el
+++ b/adoc-mode-test.el
@@ -99,12 +99,24 @@
"--" markup-meta-hide-face "\n" nil
"\n" nil
+ ;; note that in unconstraned quotes cases " ipsum " has spaces around, in
+ ;; constrained quotes case it doesn't
+ "Lorem " nil "`" markup-meta-hide-face "ipsum" '(markup-typewriter-face
markup-verbatim-face) "`" markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "+++" markup-meta-hide-face " ipsum " '(markup-typewriter-face
markup-verbatim-face) "+++" markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "$$" markup-meta-hide-face " ipsum " '(markup-typewriter-face
markup-verbatim-face) "$$" markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "**" markup-meta-hide-face " ipsum " markup-strong-face "**"
markup-meta-hide-face " dolor\n" nil
"Lorem " nil "*" markup-meta-hide-face "ipsum" markup-strong-face "*"
markup-meta-hide-face " dolor\n" nil
- "Lorem " nil "**" markup-meta-hide-face "ipsum" markup-strong-face "**"
markup-meta-hide-face " dolor\n" nil
"Lorem " nil "``" markup-replacement-face "ipsum" nil "''"
markup-replacement-face " dolor\n" nil
"Lorem " nil "'" markup-meta-hide-face "ipsum" markup-emphasis-face "'"
markup-meta-hide-face " dolor\n" nil
"Lorem " nil "`" markup-replacement-face "ipsum" nil "'"
markup-replacement-face " dolor\n" nil
- "Lorem " nil "++" markup-meta-hide-face "ipsum" nil "++"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "++" markup-meta-hide-face " ipsum " markup-typewriter-face
"++" markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "+" markup-meta-hide-face "ipsum" markup-typewriter-face "+"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "__" markup-meta-hide-face " ipsum " markup-emphasis-face "__"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "_" markup-meta-hide-face "ipsum" markup-emphasis-face "_"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "##" markup-meta-hide-face " ipsum " markup-gen-face "##"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "#" markup-meta-hide-face "ipsum" markup-gen-face "#"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "~" markup-meta-hide-face " ipsum " markup-subscript-face "~"
markup-meta-hide-face " dolor\n" nil
+ "Lorem " nil "^" markup-meta-hide-face " ipsum " markup-superscript-face
"^" markup-meta-hide-face " dolor\n" nil
)
(goto-char (point-min))
@@ -113,8 +125,8 @@
(let* ((tmp (get-text-property (point) 'adoctest))
(tmp2 (get-text-property (point) 'face)))
(when tmp
- (if (listp tmp2)
- (ert-should (member tmp tmp2))
+ (if (and (listp tmp2) (not (listp tmp)))
+ (ert-should (and (= 1 (length tmp2)) (equal tmp (car tmp2))))
(ert-should (equal tmp tmp2))))
(if (< (point) (point-max))
(forward-char 1)
