From: Nick Dokos <ndokos@gmail.com>
To: emacs-orgmode@gnu.org
Subject: ``make test'' failure
Date: Tue, 31 Oct 2017 16:49:34 -0400 [thread overview]
Message-ID: <87h8ufyrdt.fsf@alphaville.usersys.redhat.com> (raw)
I get one failure in test-org-publish/resolve-external-link.
Bisecting fingers this commit:
,----
| $ git bisect good
| 007bbddbccfd06ab9c97d51bf833a068cb1b07a2 is the first bad commit
| commit 007bbddbccfd06ab9c97d51bf833a068cb1b07a2
| Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
| Date: Sun Sep 10 00:16:12 2017 +0200
|
| ox-html: Prevent spurious target below headlines
|
| * lisp/ox-html.el (org-html-headline):
| (org-html-link): Do not insert an additional target.
|
| * lisp/ox-publish.el (org-publish-resolve-external-link): Add an
| optional argument.
|
| * lisp/ox.el (org-export-get-reference): Improve docstring.
|
| * testing/examples/pub/a.org:
| * testing/examples/pub/b.org: New files.
| * testing/lisp/test-ox-publish.el (test-org-publish/resolve-external-link):
| New test.
|
| :040000 040000 fda080e0db653c9049448200be5ad03369379cc3 ec0eb8a5cd9b3c3b204fd7134e515fb360b85c79 M etc
| :040000 040000 39afe6514335e2ccd549fc5b7fafcac344cbb471 a0fdf6967cc3ab95b046f81dab08095fe0d302de M lisp
| :040000 040000 120e098640643a963336d77d65929ef5863eeba5 679329e78a4bbc04f6f84bb176821a3084732ab3 M testing
`----
which *introduced* this test, but of course the test may be at fault,
rather than the code.
The failure looks like this:
,----
| passed 571/765 test-org-publish/get-project-from-filename
| Publishing file /home/nick/src/emacs/org/org-mode/testing/examples/pub/b.org using ‘(closure ((backend . #s(org-export-backend nil nil ((headline lambda (h c i) (concat (org-export-get-reference h i) c)) (paragraph lambda (p c i) c) (section lambda (s c i) c) (link lambda (l c i) (let ((option (org-element-property :search-option l)) (path (org-element-property :path l))) (and option (org-publish-resolve-external-link option path))))) nil nil nil nil)) (ids) (fn-14501 . apply) t) (plist filename pub-dir) (org-publish-org-to backend filename .test plist pub-dir))’
| Publishing file /home/nick/src/emacs/org/org-mode/testing/examples/pub/a.org using ‘(closure ((backend . #s(org-export-backend nil nil ((headline lambda (h c i) (concat (org-export-get-reference h i) c)) (paragraph lambda (p c i) c) (section lambda (s c i) c) (link lambda (l c i) (let ((option (org-element-property :search-option l)) (path (org-element-property :path l))) (and option (org-publish-resolve-external-link option path))))) nil nil nil nil)) (ids) (fn-14501 . apply) t) (plist filename pub-dir) (org-publish-org-to backend filename .test plist pub-dir))’
| Publishing file /home/nick/src/emacs/org/org-mode/testing/examples/pub/b.org using ‘(closure ((backend . #s(org-export-backend nil nil ((headline lambda (h c i) c) (paragraph lambda (p c i) c) (section lambda (s c i) c) (link lambda (l c i) (let ((option (org-element-property :search-option l)) (path (org-element-property :path l))) (when option (throw :exit (org-publish-resolve-external-link option path t)))))) nil nil nil nil)) (ids) (fn-14506 . equal) t) (plist filename pub-dir) (setq ids (cons (catch :exit (org-publish-org-to backend filename .test plist pub-dir)) ids)))’
| Publishing file /home/nick/src/emacs/org/org-mode/testing/examples/pub/a.org using ‘(closure ((backend . #s(org-export-backend nil nil ((headline lambda (h c i) c) (paragraph lambda (p c i) c) (section lambda (s c i) c) (link lambda (l c i) (let ((option (org-element-property :search-option l)) (path (org-element-property :path l))) (when option (throw :exit (org-publish-resolve-external-link option path t)))))) nil nil nil nil)) (ids a1) (fn-14506 . equal) t) (plist filename pub-dir) (setq ids (cons (catch :exit (org-publish-org-to backend filename .test plist pub-dir)) ids)))’
| Test test-org-publish/resolve-external-link backtrace:
| signal(ert-test-failed (((should (equal "a1" (let* ((ids nil) (backe
| ert-fail(((should (equal "a1" (let* ((ids nil) (backend (org-export-
| (if (unwind-protect (setq value-14508 (apply fn-14506 args-14507)) (
| (let (form-description-14510) (if (unwind-protect (setq value-14508
| (let ((value-14508 'ert-form-evaluation-aborted-14509)) (let (form-d
| (let* ((fn-14506 (function equal)) (args-14507 (condition-case err (
| (closure (t) nil (let* ((fn-14501 (function apply)) (args-14502 (con
| ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
| ert-run-test(#s(ert-test :name test-org-publish/resolve-external-lin
| ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\)" :test
| ert-run-tests("\\(org\\|ob\\)" #f(compiled-function (event-type &res
| ert-run-tests-batch("\\(org\\|ob\\)")
| ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
| (let ((org-id-track-globally t) (org-test-selector (if org-test-sele
| org-test-run-batch-tests("\\(org\\|ob\\)")
| eval((org-test-run-batch-tests org-test-select-re))
| command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
| command-line()
| normal-top-level()
| Test test-org-publish/resolve-external-link condition:
| (ert-test-failed
| ((should
| (equal "a1"
| (let* ... ... ...)))
| :form
| (equal "a1" "org44ee821")
| :value nil :explanation
| (arrays-of-different-length 2 10 "a1" "org44ee821" first-mismatch-at 0)))
| FAILED 572/765 test-org-publish/resolve-external-link
`----
--
Nick
next reply other threads:[~2017-10-31 20:50 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-10-31 20:49 Nick Dokos [this message]
2017-11-01 20:57 ` ``make test'' failure Nicolas Goaziou
2017-11-02 16:15 ` Nick Dokos
2017-11-03 21:17 ` Nicolas Goaziou
2017-11-06 0:32 ` Nick Dokos
-- strict thread matches above, loose matches on Subject: below --
2013-02-11 17:19 "make test" failure Nick Dokos
2013-02-11 17:33 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h8ufyrdt.fsf@alphaville.usersys.redhat.com \
--to=ndokos@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).