branch: elpa/adoc-mode
commit ead05da007442be97ea4bf4fbfe31f723c048db5
Author: Florian Kaufmann <[email protected]>
Commit: Florian Kaufmann <[email protected]>
split up the current big test into smaller ones
---
adoc-mode-test.el | 64 +++++++++++++++++++++++++++----------------------------
1 file changed, 31 insertions(+), 33 deletions(-)
diff --git a/adoc-mode-test.el b/adoc-mode-test.el
index f576cf44df..41b85047ff 100644
--- a/adoc-mode-test.el
+++ b/adoc-mode-test.el
@@ -3,8 +3,15 @@
;; todo
;; test for font lock multiline property
+;; todo
+;; !!!!!!!!!!!!!
+;; Lock Support Mode must be set to nil
+;; !!!!!!!!!!!!!
+
+;; todo: test for presence of adoc-reserved (we do white-box testing here)
+
-(defun adoctest-make-buffer (&rest args)
+(defun adoctest-faces (&rest args)
(set-buffer (get-buffer-create "adoctest"))
(delete-region (point-min) (point-max))
@@ -13,19 +20,22 @@
(setq args (cddr args)))
(adoc-mode)
- (font-lock-fontify-buffer))
-
-(ert-deftest adoctest-foo ()
- ;; todo
- ;; !!!!!!!!!!!!!
- ;; Lock Support Mode must be set to nil
- ;; !!!!!!!!!!!!!
-
- ;; todo: test for presence of adoc-reserved (we do white-box testing here)
-
+ (font-lock-fontify-buffer)
+ (goto-char (point-min))
+ (let ((not-done t))
+ (while not-done
+ (let* ((tmp (get-text-property (point) 'adoctest))
+ (tmp2 (get-text-property (point) 'face)))
+ (when tmp
+ (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)
+ (setq not-done nil))))))
- ;; the white after = really is part of the delimiter
- (adoctest-make-buffer
+(ert-deftest adoctest-test-titles-simple ()
+ (adoctest-faces
"= " markup-meta-hide-face "document title" markup-title-0-face "\n" nil
"\n" nil
"== " markup-meta-hide-face "chapter 1" markup-title-1-face "\n" nil
@@ -63,9 +73,10 @@
"^^^^^^^^^" markup-meta-hide-face "\n" nil
"\n" nil
"chapter 4" markup-title-4-face "\n" nil
- "+++++++++" markup-meta-hide-face "\n" nil
- "\n" nil
+ "+++++++++" markup-meta-hide-face "\n" nil))
+(ert-deftest adoctest-test-delimited-blocks-simple ()
+ (adoctest-faces
"////////" markup-meta-hide-face "\n" nil
"comment line 1\ncomment line 2" markup-comment-face "\n" nil
"////////" markup-meta-hide-face "\n" nil
@@ -96,9 +107,10 @@
"\n" nil
"--" markup-meta-hide-face "\n" nil
"open block line 1\nopen block line 2" nil "\n" nil
- "--" markup-meta-hide-face "\n" nil
- "\n" nil
+ "--" markup-meta-hide-face "\n" nil))
+(ert-deftest adoctest-test-quotes-simple ()
+ (adoctest-faces
;; 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
@@ -116,21 +128,7 @@
"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))
- (let ((not-done t))
- (while not-done
- (let* ((tmp (get-text-property (point) 'adoctest))
- (tmp2 (get-text-property (point) 'face)))
- (when tmp
- (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)
- (setq not-done nil))))))
+ "Lorem " nil "^" markup-meta-hide-face " ipsum " markup-superscript-face
"^" markup-meta-hide-face " dolor\n" nil))
-(ert-run-tests-interactively "^adoctest-")
+(ert-run-tests-interactively "^adoctest-test-")
