From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: ``make test'' failure Date: Tue, 31 Oct 2017 16:49:34 -0400 Message-ID: <87h8ufyrdt.fsf@alphaville.usersys.redhat.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60987) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e9dUB-0004az-Mc for emacs-orgmode@gnu.org; Tue, 31 Oct 2017 16:50:13 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e9dU8-00014D-Hu for emacs-orgmode@gnu.org; Tue, 31 Oct 2017 16:50:11 -0400 Received: from [195.159.176.226] (port=53415 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e9dU8-00013B-AU for emacs-orgmode@gnu.org; Tue, 31 Oct 2017 16:50:08 -0400 Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1e9dTl-0002GW-8S for emacs-orgmode@gnu.org; Tue, 31 Oct 2017 21:49:45 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org 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 | 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