branch: elpa/adoc-mode
commit 0f7619cfcec09da983abcf0748d1d4eadee00f62
Author: Florian Kaufmann <sensor...@gmail.com>
Commit: Florian Kaufmann <sensor...@gmail.com>
enheanced inline-subst-boundaries test
---
adoc-mode-test.el | 42 +++++++++++++++++++++++++++++++++---------
1 file changed, 33 insertions(+), 9 deletions(-)
diff --git a/adoc-mode-test.el b/adoc-mode-test.el
index fb6a7309be..e2d4b992d0 100644
--- a/adoc-mode-test.el
+++ b/adoc-mode-test.el
@@ -206,29 +206,53 @@
(ert-deftest adoctest-test-inline-subst-boundaries ()
(adoctest-faces "inline-subst-boundaries"
+ ;; 1) don't cross title boundaries.
+ ;; 2) don't cross paragraph boundaries.
+ ;; 3) verify that the (un)constrained quotes would work however
"== " markup-meta-hide-face "chapter ** 1" markup-title-1-face "\n" nil
"lorem ** ipsum\n" 'no-face
"\n" nil
+ "lorem " 'no-face "**" markup-meta-hide-face " ipsum " markup-strong-face
"**" markup-meta-hide-face "\n" nil
+ "\n" nil
- "== " markup-meta-hide-face "chapter ** 1" markup-title-1-face " =="
markup-meta-hide-face "\n" nil
- "lorem ** ipsum\n" 'no-face
+ "== " markup-meta-hide-face "chapter __ 1" markup-title-1-face " =="
markup-meta-hide-face "\n" nil
+ "lorem __ ipsum\n" 'no-face
+ "\n" nil
+ "lorem " 'no-face "__" markup-meta-hide-face " ipsum " markup-emphasis-face
"__" markup-meta-hide-face "\n" nil
"\n" nil
- "chapter ** 1" markup-title-1-face "\n" nil
+ "chapter ++ 1" markup-title-1-face "\n" nil
"------------" markup-meta-hide-face "\n" nil
- "lorem ** ipsum\n" 'no-face
+ "lorem ++ ipsum\n" 'no-face
+ "\n" nil
+ "lorem " 'no-face "++" markup-meta-hide-face " ipsum "
markup-typewriter-face "++" markup-meta-hide-face "\n" nil
"\n" nil
- "." markup-meta-face "block ** title" markup-gen-face "\n" nil
- "lorem ** ipsum\n" 'no-face
+ "." markup-meta-face "block ^title" markup-gen-face "\n" nil
+ "lorem^ ipsum\n" 'no-face
"\n" nil
+ "lorem " 'no-face "^" markup-meta-hide-face " ipsum "
markup-superscript-face "^" markup-meta-hide-face "\n" nil
+ "\n" nil
+
+ ;; Being able to use a ** that potentially could be mistaken as an end
+ ;; delimiter as start delimiter
+ "== " markup-meta-hide-face "chapter ** 1" markup-title-1-face "\n" nil
+ "lorem " 'no-face "**" markup-meta-hide-face " ipsum " markup-strong-face
"**" markup-meta-hide-face "\n" nil
+ "\n" nil
+
+ ;; 1) don't cross list item boundaries
+ ;; 2) don't mistake a list item '**' as an unconstrained quote '**' (either
start or end)
+ "-" markup-list-face " " nil "lorem ** ipsum\n" 'no-face
+ "-" markup-list-face " " nil "dolor ** sit\n" 'no-face
+ "**" markup-list-face " " nil "lorem ** ipsumt\n" 'no-face
+ "**" markup-list-face " " nil "dolor ** sit\n" 'no-face
+ ;; todo: not reaching into a labeled list item text does no yet work
+ ;; "lorem ** ipsum " markup-gen-face "::" markup-list-face " " nil "sit **
dolor\n" 'no-face
;; test also
;; - over beginning of labeled
- ;; - over end of block title
- ;; - over beginning of two line title
- ;; - over end of one line title
+
))
;; todo: also test for warnings
