emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/adoc-mode 0f7619cfce 027/199: enheanced inline-subst-bound


From: ELPA Syncer
Subject: [nongnu] elpa/adoc-mode 0f7619cfce 027/199: enheanced inline-subst-boundaries test
Date: Sun, 3 Sep 2023 06:59:22 -0400 (EDT)

branch: elpa/adoc-mode
commit 0f7619cfcec09da983abcf0748d1d4eadee00f62
Author: Florian Kaufmann <sensorflo@gmail.com>
Commit: Florian Kaufmann <sensorflo@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]