Re: [O] URGENT Bug with exporting org source block

[Eric Schulte]

Achim Gratz <address@hidden> writes:

> Eric Schulte writes:
> [...]
>
> With your latest changes I get this test regression (I have not checked
> which commit is responsible):
>

This is odd.  The first time I ran the test suite this test failed for
me as well, however on all subsequent runs of the test suite this test
passed, and manually looking through the test the code indeed does seem
to be acting as it should.

Best,

>
> Test ob-exp/noweb-on-export-with-exports-results backtrace:
>   <(357 nil)
>   apply(< (357 nil))
>   (setq value-605 (apply fn-603 args-604))
>   (unwind-protect (setq value-605 (apply fn-603 args-604)) (setq form-
>   (if (unwind-protect (setq value-605 (apply fn-603 args-604)) (setq f
>   (unless (unwind-protect (setq value-605 (apply fn-603 args-604)) (se
>   (let (form-description-607) (unless (unwind-protect (setq value-605 
>   (let ((value-605 (quote ert-form-evaluation-aborted-606))) (let (for
>   (let ((fn-603 (function <)) (args-604 (list test-point (re-search-fo
>   (should (< test-point (re-search-forward x nil t)))
>   (lambda (x) (should (< test-point (re-search-forward x nil t))) (set
>   mapcar((lambda (x) (should (< test-point (re-search-forward x nil t)
>   (setq G93507 (mapcar (lambda (x) (should (< test-point (re-search-fo
>   (let ((kill-buffer-query-functions nil) G93507) (with-temp-file "/tm
>   (org-test-with-temp-text-in-file exported-html (mapcar (lambda (x) (
>   (let ((exported-html (org-export-as-html nil nil nil (quote string) 
>   (save-restriction (org-narrow-to-subtree) (let ((exported-html (org-
>   (progn (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b66f8d") (setq to
>   (unwind-protect (progn (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b
>   (let ((save-match-data-internal (match-data))) (unwind-protect (prog
>   (save-match-data (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b66f8d"
>   (progn (save-match-data (org-id-goto "8701beb4-13d9-468c-997a-8e63e8
>   (unwind-protect (progn (save-match-data (org-id-goto "8701beb4-13d9-
>   (let ((wconfig (current-window-configuration))) (unwind-protect (pro
>   (save-window-excursion (save-match-data (org-id-goto "8701beb4-13d9-
>   (let* ((id-location (org-id-find "8701beb4-13d9-468c-997a-8e63e8b66f
>   (org-test-at-id "8701beb4-13d9-468c-997a-8e63e8b66f8d" (org-narrow-t
>   (lambda nil (org-test-at-id "8701beb4-13d9-468c-997a-8e63e8b66f8d" (
>   byte-code("\306\307!▒q\210\310\216\311 \312\216\313\314\315\316\3
>   ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
>   byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
>   ert-run-test([cl-struct-ert-test ob-exp/noweb-on-export-with-exports
>   ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
>   ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) \30
>   ert-run-tests-batch("\\(org\\|ob\\)")
>   ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
>   (let ((org-id-track-globally t) (org-id-locations-file (convert-stan
>   org-test-run-batch-tests()
>   call-interactively(org-test-run-batch-tests nil nil)
>   command-execute(org-test-run-batch-tests)
>   command-line-1(("-L" "lisp/" "-L" "testing/" "--eval" "(defconst org
>   command-line()
>   normal-top-level()
> Test ob-exp/noweb-on-export-with-exports-results condition:
>     (wrong-type-argument number-or-marker-p nil)
>    FAILED   21/193  ob-exp/noweb-on-export-with-exports-results
>
>
> Regards,
> Achim.

-- 
Eric Schulte
http://cs.unm.edu/~eschulte/