5 tests are failing #39
Description
Running the tests with "emacs -Q -batch -l adoc-mode-test.el -f ert-run-tests-batch-and-exit, I get:
starting phase `check'
Running 44 tests (2019-11-01 15:45:45+0000)
passed 1/44 adoctest-test-adjust-title-del
passed 2/44 adoctest-test-anchors
passed 3/44 adoctest-test-attribute-list
passed 4/44 adoctest-test-block-macro
passed 5/44 adoctest-test-comments
passed 6/44 adoctest-test-delimited-blocks-simple
passed 7/44 adoctest-test-demote-title
passed 8/44 adoctest-test-footnoterefs
passed 9/44 adoctest-test-footnotes
Mark set
Mark set
Mark set
passed 10/44 adoctest-test-goto-ref-label
passed 11/44 adoctest-test-images
passed 12/44 adoctest-test-indent-by-example
passed 13/44 adoctest-test-inline-macros
passed 14/44 adoctest-test-inline-subst-boundaries
passed 15/44 adoctest-test-lists-medium
passed 16/44 adoctest-test-lists-simple
passed 17/44 adoctest-test-make-two-line-title-underline
passed 18/44 adoctest-test-meta-face-cleanup
passed 19/44 adoctest-test-open-block
passed 20/44 adoctest-test-promote-title
passed 21/44 adoctest-test-quotes-medium
passed 22/44 adoctest-test-quotes-medium-2
passed 23/44 adoctest-test-quotes-medium-3
passed 24/44 adoctest-test-quotes-medium-4
passed 25/44 adoctest-test-quotes-simple
passed 26/44 adoctest-test-references
passed 27/44 adoctest-test-repeat-string
Test adoctest-test-tempo-delimited-blocks backtrace:
signal(ert-test-failed (((should (string-equal (buffer-substring (po
ert-fail(((should (string-equal (buffer-substring (point-min) (point
(if (unwind-protect (setq value-14 (apply fn-12 args-13)) (setq form
(let (form-description-16) (if (unwind-protect (setq value-14 (apply
(let ((value-14 (quote ert-form-evaluation-aborted-15))) (let (form-
(let* ((fn-12 (function string-equal)) (args-13 (condition-case err
(progn (adoc-mode) (insert original-text) (cond ((consp pos) (goto-c
(unwind-protect (progn (adoc-mode) (insert original-text) (cond ((co
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
(let ((not-done t) (font-lock-support-mode)) (let ((temp-buffer (gen
adoctest-trans-inner("lorem\nipsum\ndolor" "lorem\n/////////////////
(while pos-new-list (adoctest-trans-inner new-original-text expected
(let ((pos 0) (pos-old 0) (pos-in-new-region-start 0) (pos-new-list)
(if (string-match "[!<>]" original-text) (let ((pos 0) (pos-old 0) (
adoctest-trans("lorem\n<ipsum>\ndolor" "lorem\n/////////////////////
(let ((del-line (if (integerp del) (make-string 50 del) del))) (adoc
adoctest-delimited-block(47 (tempo-template-adoc-delimited-block-com
(lambda nil (adoctest-delimited-block 47 (quote (tempo-template-adoc
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name adoctest-test-tempo-delimited-blocks
ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-a
command-line()
normal-top-level()
Test adoctest-test-tempo-delimited-blocks condition:
(ert-test-failed
((should
(string-equal
(buffer-substring ... ...)
expected-text))
:form
(string-equal "lorem
//////////////////////////////////////////////////
//////////////////////////////////////////////////
ipsum
dolor" "lorem
//////////////////////////////////////////////////
ipsum
//////////////////////////////////////////////////
dolor")
:value nil))
FAILED 28/44 adoctest-test-tempo-delimited-blocks
passed 29/44 adoctest-test-tempo-formatting-misc
passed 30/44 adoctest-test-tempo-lists
Test adoctest-test-tempo-macros backtrace:
signal(ert-test-failed (((should (string-equal (buffer-substring (po
ert-fail(((should (string-equal (buffer-substring (point-min) (point
(if (unwind-protect (setq value-14 (apply fn-12 args-13)) (setq form
(let (form-description-16) (if (unwind-protect (setq value-14 (apply
(let ((value-14 (quote ert-form-evaluation-aborted-15))) (let (form-
(let* ((fn-12 (function string-equal)) (args-13 (condition-case err
(progn (adoc-mode) (insert original-text) (cond ((consp pos) (goto-c
(unwind-protect (progn (adoc-mode) (insert original-text) (cond ((co
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
(let ((not-done t) (font-lock-support-mode)) (let ((temp-buffer (gen
adoctest-trans-inner("see here for" "see http://foo.com[here] for" (
(while pos-new-list (adoctest-trans-inner new-original-text expected
(let ((pos 0) (pos-old 0) (pos-in-new-region-start 0) (pos-new-list)
(if (string-match "[!<>]" original-text) (let ((pos 0) (pos-old 0) (
adoctest-trans("see <here> for" "see http://foo.com[here] for" (temp
(lambda nil (adoctest-trans "" "http://foo.com[]" (quote (tempo-temp
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name adoctest-test-tempo-macros :documenta
ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-a
command-line()
normal-top-level()
Test adoctest-test-tempo-macros condition:
(ert-test-failed
((should
(string-equal
(buffer-substring ... ...)
expected-text))
:form
(string-equal "see http://foo.com[]here for" "see http://foo.com[here] for")
:value nil))
FAILED 31/44 adoctest-test-tempo-macros
Test adoctest-test-tempo-paragraphs backtrace:
signal(ert-test-failed (((should (string-equal (buffer-substring (po
ert-fail(((should (string-equal (buffer-substring (point-min) (point
(if (unwind-protect (setq value-14 (apply fn-12 args-13)) (setq form
(let (form-description-16) (if (unwind-protect (setq value-14 (apply
(let ((value-14 (quote ert-form-evaluation-aborted-15))) (let (form-
(let* ((fn-12 (function string-equal)) (args-13 (condition-case err
(progn (adoc-mode) (insert original-text) (cond ((consp pos) (goto-c
(unwind-protect (progn (adoc-mode) (insert original-text) (cond ((co
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
(let ((not-done t) (font-lock-support-mode)) (let ((temp-buffer (gen
adoctest-trans-inner("loremipsum" "lorem\n ipsum" (tempo-template-a
(while pos-new-list (adoctest-trans-inner new-original-text expected
(let ((pos 0) (pos-old 0) (pos-in-new-region-start 0) (pos-new-list)
(if (string-match "[!<>]" original-text) (let ((pos 0) (pos-old 0) (
adoctest-trans("lorem<ipsum>" "lorem\n ipsum" (tempo-template-adoc-
(lambda nil (adoctest-trans "" " " (quote (tempo-template-adoc-lite
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name adoctest-test-tempo-paragraphs :docum
ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-a
command-line()
normal-top-level()
Test adoctest-test-tempo-paragraphs condition:
(ert-test-failed
((should
(string-equal
(buffer-substring ... ...)
expected-text))
:form
(string-equal "lorem
ipsum" "lorem
ipsum")
:value nil))
FAILED 32/44 adoctest-test-tempo-paragraphs
Test adoctest-test-tempo-passthroug-macros backtrace:
signal(ert-test-failed (((should (string-equal (buffer-substring (po
ert-fail(((should (string-equal (buffer-substring (point-min) (point
(if (unwind-protect (setq value-14 (apply fn-12 args-13)) (setq form
(let (form-description-16) (if (unwind-protect (setq value-14 (apply
(let ((value-14 (quote ert-form-evaluation-aborted-15))) (let (form-
(let* ((fn-12 (function string-equal)) (args-13 (condition-case err
(progn (adoc-mode) (insert original-text) (cond ((consp pos) (goto-c
(unwind-protect (progn (adoc-mode) (insert original-text) (cond ((co
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
(let ((not-done t) (font-lock-support-mode)) (let ((temp-buffer (gen
adoctest-trans-inner("lorem ipsum dolor" "lorem pass:[ipsum] dolor"
(while pos-new-list (adoctest-trans-inner new-original-text expected
(let ((pos 0) (pos-old 0) (pos-in-new-region-start 0) (pos-new-list)
(if (string-match "[!<>]" original-text) (let ((pos 0) (pos-old 0) (
adoctest-trans("lorem <ipsum> dolor" "lorem pass:[ipsum] dolor" (tem
(lambda nil (adoctest-trans "" "pass:[]" (quote (tempo-template-adoc
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name adoctest-test-tempo-passthroug-macros
ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-a
command-line()
normal-top-level()
Test adoctest-test-tempo-passthroug-macros condition:
(ert-test-failed
((should
(string-equal
(buffer-substring ... ...)
expected-text))
:form
(string-equal "lorem pass:[]ipsum dolor" "lorem pass:[ipsum] dolor")
:value nil))
FAILED 33/44 adoctest-test-tempo-passthroug-macros
Test adoctest-test-tempo-quotes backtrace:
signal(ert-test-failed (((should (string-equal (buffer-substring (po
ert-fail(((should (string-equal (buffer-substring (point-min) (point
(if (unwind-protect (setq value-14 (apply fn-12 args-13)) (setq form
(let (form-description-16) (if (unwind-protect (setq value-14 (apply
(let ((value-14 (quote ert-form-evaluation-aborted-15))) (let (form-
(let* ((fn-12 (function string-equal)) (args-13 (condition-case err
(progn (adoc-mode) (insert original-text) (cond ((consp pos) (goto-c
(unwind-protect (progn (adoc-mode) (insert original-text) (cond ((co
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
(let ((not-done t) (font-lock-support-mode)) (let ((temp-buffer (gen
adoctest-trans-inner("lorem ipsum dolor" "lorem _ipsum_ dolor" (temp
(while pos-new-list (adoctest-trans-inner new-original-text expected
(let ((pos 0) (pos-old 0) (pos-in-new-region-start 0) (pos-new-list)
(if (string-match "[!<>]" original-text) (let ((pos 0) (pos-old 0) (
adoctest-trans("lorem <ipsum> dolor" "lorem _ipsum_ dolor" (tempo-te
adoctest-quotes("_" "_" (tempo-template-adoc-emphasis))
(lambda nil (adoctest-quotes "_" "_" (quote (tempo-template-adoc-emp
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name adoctest-test-tempo-quotes :documenta
ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-a
command-line()
normal-top-level()
Test adoctest-test-tempo-quotes condition:
(ert-test-failed
((should
(string-equal
(buffer-substring ... ...)
expected-text))
:form
(string-equal "lorem __ipsum dolor" "lorem _ipsum_ dolor")
:value nil))
FAILED 34/44 adoctest-test-tempo-quotes
passed 35/44 adoctest-test-tempo-title
passed 36/44 adoctest-test-titles-simple-block-title
passed 37/44 adoctest-test-titles-simple-one-line-before
passed 38/44 adoctest-test-titles-simple-one-line-enclosed
passed 39/44 adoctest-test-titles-simple-two-line
passed 40/44 adoctest-test-toggle-title-type
passed 41/44 adoctest-test-url
passed 42/44 adoctest-test-url-enclosing-quote
passed 43/44 adoctest-test-xref-at-point-1
passed 44/44 adoctest-test-xref-at-point-2
Ran 44 tests, 39 results as expected, 5 unexpected (2019-11-01 15:45:46+0000)
5 unexpected results:
FAILED adoctest-test-tempo-delimited-blocks
FAILED adoctest-test-tempo-macros
FAILED adoctest-test-tempo-paragraphs
FAILED adoctest-test-tempo-passthroug-macros
FAILED adoctest-test-tempo-quotes
command "emacs" "-Q" "-batch" "-l" "adoc-mode-test.el" "-f" "ert-run-tests-batch-and-exit" failed with status 1