Re: [O] [Bug] Tests for experimental org-features should expect to fail if not activated by the user

[Achim Gratz]

Two test failures in current HEAD:

--8<---------------cut here---------------start------------->8---
Test test-org-footnote/normalize-outside-org backtrace:
  org-footnote-in-valid-context-p()
  org-footnote-at-reference-p()
  byte-code(\20\304\202 \305    \n\306#\204\307\310\311\"\21\20
  org-footnote-get-next-reference()
  org-footnote-normalize()
  (let ((major-mode (quote message-mode))) (org-footnote-normalize))
  (progn (insert "Body[fn::def]\n-- \nFake signature\n-- \nSignature")
  (unwind-protect (progn (insert "Body[fn::def]\n-- \nFake signature\n
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (with-current-buffer temp-buffer (unwind-protect (progn (insert "Bod
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-b
  (with-temp-buffer (insert "Body[fn::def]\n-- \nFake signature\n-- \n
  (let ((org-footnote-tag-for-non-org-mode-files nil) (message-signatu
  (lambda nil (let ((org-footnote-tag-for-non-org-mode-files nil)) (wi
  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 test-org-footnote/normalize-outside
  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 test-org-footnote/normalize-outside-org condition:
    (void-variable message-cite-prefix-regexp)
   FAILED  166/192  test-org-footnote/normalize-outside-org
--8<---------------cut here---------------end--------------->8---

--8<---------------cut here---------------start------------->8---
Test test-org-export/export-scope backtrace:
  signal(ert-test-failed (((should (equal (org-export-as (quote test))
  ert-fail(((should (equal (org-export-as (quote test)) "text\n")) :fo
  (if (unwind-protect (setq value-2005 (apply fn-2003 args-2004)) (set
  (unless (unwind-protect (setq value-2005 (apply fn-2003 args-2004)) 
  (let (form-description-2007) (unless (unwind-protect (setq value-200
  (let ((value-2005 (quote ert-form-evaluation-aborted-2006))) (let (f
  (let ((fn-2003 (function equal)) (args-2004 (list (org-export-as (qu
  (should (equal (org-export-as (quote test)) "text\n"))
  (progn (fset (quote org-test-center-block) (function* (lambda (obj c
  (unwind-protect (progn (fset (quote org-test-center-block) (function
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-center-block))) (
  (letf (((symbol-function (quote org-test-center-block)) (function* (
  (progn (fset (quote org-test-comment) (function* (lambda (obj conten
  (unwind-protect (progn (fset (quote org-test-comment) (function* (la
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-comment))) (--cl-
  (letf (((symbol-function (quote org-test-comment)) (function* (lambd
  (progn (fset (quote org-test-comment-block) (function* (lambda (obj 
  (unwind-protect (progn (fset (quote org-test-comment-block) (functio
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-comment-block))) 
  (letf (((symbol-function (quote org-test-comment-block)) (function* 
  (progn (fset (quote org-test-drawer) (function* (lambda (obj content
  (unwind-protect (progn (fset (quote org-test-drawer) (function* (lam
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-drawer))) (--cl-l
  (letf (((symbol-function (quote org-test-drawer)) (function* (lambda
  (progn (fset (quote org-test-dynamic-block) (function* (lambda (obj 
  (unwind-protect (progn (fset (quote org-test-dynamic-block) (functio
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-dynamic-block))) 
  (letf (((symbol-function (quote org-test-dynamic-block)) (function* 
  (progn (fset (quote org-test-example-block) (function* (lambda (obj 
  (unwind-protect (progn (fset (quote org-test-example-block) (functio
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-example-block))) 
  (letf (((symbol-function (quote org-test-example-block)) (function* 
  (progn (fset (quote org-test-export-block) (function* (lambda (obj c
  (unwind-protect (progn (fset (quote org-test-export-block) (function
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-export-block))) (
  (letf (((symbol-function (quote org-test-export-block)) (function* (
  (progn (fset (quote org-test-fixed-width) (function* (lambda (obj co
  (unwind-protect (progn (fset (quote org-test-fixed-width) (function*
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-fixed-width))) (-
  (letf (((symbol-function (quote org-test-fixed-width)) (function* (l
  (progn (fset (quote org-test-footnote-definition) (function* (lambda
  (unwind-protect (progn (fset (quote org-test-footnote-definition) (f
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-footnote-definiti
  (letf (((symbol-function (quote org-test-footnote-definition)) (func
  (progn (fset (quote org-test-headline) (function* (lambda (obj conte
  (unwind-protect (progn (fset (quote org-test-headline) (function* (l
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-headline))) (--cl
  (letf (((symbol-function (quote org-test-headline)) (function* (lamb
  (progn (fset (quote org-test-horizontal-rule) (function* (lambda (ob
  (unwind-protect (progn (fset (quote org-test-horizontal-rule) (funct
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-horizontal-rule))
  (letf (((symbol-function (quote org-test-horizontal-rule)) (function
  (progn (fset (quote org-test-inlinetask) (function* (lambda (obj con
  (unwind-protect (progn (fset (quote org-test-inlinetask) (function* 
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-inlinetask))) (--
  (letf (((symbol-function (quote org-test-inlinetask)) (function* (la
  (progn (fset (quote org-test-item) (function* (lambda (obj contents 
  (unwind-protect (progn (fset (quote org-test-item) (function* (lambd
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-item))) (--cl-let
  (letf (((symbol-function (quote org-test-item)) (function* (lambda (
  (progn (fset (quote org-test-keyword) (function* (lambda (obj conten
  (unwind-protect (progn (fset (quote org-test-keyword) (function* (la
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-keyword))) (--cl-
  (letf (((symbol-function (quote org-test-keyword)) (function* (lambd
  (progn (fset (quote org-test-latex-environment) (function* (lambda (
  (unwind-protect (progn (fset (quote org-test-latex-environment) (fun
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-latex-environment
  (letf (((symbol-function (quote org-test-latex-environment)) (functi
  (progn (fset (quote org-test-babel-call) (function* (lambda (obj con
  (unwind-protect (progn (fset (quote org-test-babel-call) (function* 
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-babel-call))) (--
  (letf (((symbol-function (quote org-test-babel-call)) (function* (la
  (progn (fset (quote org-test-paragraph) (function* (lambda (obj cont
  (unwind-protect (progn (fset (quote org-test-paragraph) (function* (
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-paragraph))) (--c
  (letf (((symbol-function (quote org-test-paragraph)) (function* (lam
  (progn (fset (quote org-test-plain-list) (function* (lambda (obj con
  (unwind-protect (progn (fset (quote org-test-plain-list) (function* 
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-plain-list))) (--
  (letf (((symbol-function (quote org-test-plain-list)) (function* (la
  (progn (fset (quote org-test-property-drawer) (function* (lambda (ob
  (unwind-protect (progn (fset (quote org-test-property-drawer) (funct
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-property-drawer))
  (letf (((symbol-function (quote org-test-property-drawer)) (function
  (progn (fset (quote org-test-quote-block) (function* (lambda (obj co
  (unwind-protect (progn (fset (quote org-test-quote-block) (function*
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-quote-block))) (-
  (letf (((symbol-function (quote org-test-quote-block)) (function* (l
  (progn (fset (quote org-test-quote-section) (function* (lambda (obj 
  (unwind-protect (progn (fset (quote org-test-quote-section) (functio
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-quote-section))) 
  (letf (((symbol-function (quote org-test-quote-section)) (function* 
  (progn (fset (quote org-test-section) (function* (lambda (obj conten
  (unwind-protect (progn (fset (quote org-test-section) (function* (la
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-section))) (--cl-
  (letf (((symbol-function (quote org-test-section)) (function* (lambd
  (progn (fset (quote org-test-special-block) (function* (lambda (obj 
  (unwind-protect (progn (fset (quote org-test-special-block) (functio
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-special-block))) 
  (letf (((symbol-function (quote org-test-special-block)) (function* 
  (progn (fset (quote org-test-src-block) (function* (lambda (obj cont
  (unwind-protect (progn (fset (quote org-test-src-block) (function* (
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-src-block))) (--c
  (letf (((symbol-function (quote org-test-src-block)) (function* (lam
  (progn (fset (quote org-test-table) (function* (lambda (obj contents
  (unwind-protect (progn (fset (quote org-test-table) (function* (lamb
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-table))) (--cl-le
  (letf (((symbol-function (quote org-test-table)) (function* (lambda 
  (progn (fset (quote org-test-verse-block) (function* (lambda (obj co
  (unwind-protect (progn (fset (quote org-test-verse-block) (function*
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-verse-block))) (-
  (letf (((symbol-function (quote org-test-verse-block)) (function* (l
  (progn (fset (quote org-test-emphasis) (function* (lambda (obj conte
  (unwind-protect (progn (fset (quote org-test-emphasis) (function* (l
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-emphasis))) (--cl
  (letf (((symbol-function (quote org-test-emphasis)) (function* (lamb
  (progn (fset (quote org-test-entity) (function* (lambda (obj content
  (unwind-protect (progn (fset (quote org-test-entity) (function* (lam
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-entity))) (--cl-l
  (letf (((symbol-function (quote org-test-entity)) (function* (lambda
  (progn (fset (quote org-test-export-snippet) (function* (lambda (obj
  (unwind-protect (progn (fset (quote org-test-export-snippet) (functi
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-export-snippet)))
  (letf (((symbol-function (quote org-test-export-snippet)) (function*
  (progn (fset (quote org-test-footnote-reference) (function* (lambda 
  (unwind-protect (progn (fset (quote org-test-footnote-reference) (fu
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-footnote-referenc
  (letf (((symbol-function (quote org-test-footnote-reference)) (funct
  (progn (fset (quote org-test-inline-babel-call) (function* (lambda (
  (unwind-protect (progn (fset (quote org-test-inline-babel-call) (fun
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-inline-babel-call
  (letf (((symbol-function (quote org-test-inline-babel-call)) (functi
  (progn (fset (quote org-test-inline-src-block) (function* (lambda (o
  (unwind-protect (progn (fset (quote org-test-inline-src-block) (func
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-inline-src-block)
  (letf (((symbol-function (quote org-test-inline-src-block)) (functio
  (progn (fset (quote org-test-line-break) (function* (lambda (obj con
  (unwind-protect (progn (fset (quote org-test-line-break) (function* 
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-line-break))) (--
  (letf (((symbol-function (quote org-test-line-break)) (function* (la
  (progn (fset (quote org-test-latex-fragment) (function* (lambda (obj
  (unwind-protect (progn (fset (quote org-test-latex-fragment) (functi
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-latex-fragment)))
  (letf (((symbol-function (quote org-test-latex-fragment)) (function*
  (progn (fset (quote org-test-link) (function* (lambda (obj contents 
  (unwind-protect (progn (fset (quote org-test-link) (function* (lambd
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-link))) (--cl-let
  (letf (((symbol-function (quote org-test-link)) (function* (lambda (
  (progn (fset (quote org-test-macro) (function* (lambda (obj contents
  (unwind-protect (progn (fset (quote org-test-macro) (function* (lamb
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-macro))) (--cl-le
  (letf (((symbol-function (quote org-test-macro)) (function* (lambda 
  (progn (fset (quote org-test-radio-target) (function* (lambda (obj c
  (unwind-protect (progn (fset (quote org-test-radio-target) (function
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-radio-target))) (
  (letf (((symbol-function (quote org-test-radio-target)) (function* (
  (progn (fset (quote org-test-statistics-cookie) (function* (lambda (
  (unwind-protect (progn (fset (quote org-test-statistics-cookie) (fun
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-statistics-cookie
  (letf (((symbol-function (quote org-test-statistics-cookie)) (functi
  (progn (fset (quote org-test-subscript) (function* (lambda (obj cont
  (unwind-protect (progn (fset (quote org-test-subscript) (function* (
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-subscript))) (--c
  (letf (((symbol-function (quote org-test-subscript)) (function* (lam
  (progn (fset (quote org-test-superscript) (function* (lambda (obj co
  (unwind-protect (progn (fset (quote org-test-superscript) (function*
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-superscript))) (-
  (letf (((symbol-function (quote org-test-superscript)) (function* (l
  (progn (fset (quote org-test-target) (function* (lambda (obj content
  (unwind-protect (progn (fset (quote org-test-target) (function* (lam
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-target))) (--cl-l
  (letf (((symbol-function (quote org-test-target)) (function* (lambda
  (progn (fset (quote org-test-time-stamp) (function* (lambda (obj con
  (unwind-protect (progn (fset (quote org-test-time-stamp) (function* 
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-time-stamp))) (--
  (letf (((symbol-function (quote org-test-time-stamp)) (function* (la
  (progn (fset (quote org-test-verbatim) (function* (lambda (obj conte
  (unwind-protect (progn (fset (quote org-test-verbatim) (function* (l
  (let* ((--cl-letf-bound-- (fboundp (quote org-test-verbatim))) (--cl
  (letf (((symbol-function (quote org-test-verbatim)) (function* (lamb
  (letf* (((symbol-function (quote org-test-verbatim)) (function* (lam
  (flet ((org-test-verbatim (obj contents info) (org-element-verbatim-
  (org-test-with-backend "test" (forward-line 3) (should (equal (org-e
  (prog1 (org-test-with-backend "test" (forward-line 3) (should (equal
  (progn (org-mode) (progn (insert "\n* Head1\n** Head2\ntext\n*** Hea
  (unwind-protect (progn (org-mode) (progn (insert "\n* Head1\n** Head
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (with-current-buffer temp-buffer (unwind-protect (progn (org-mode) (
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-b
  (with-temp-buffer (org-mode) (progn (insert "\n* Head1\n** Head2\nte
  (org-test-with-temp-text "\n* Head1\n** Head2\ntext\n*** Head3" (org
  (lambda nil (org-test-with-temp-text "\n* Head1\n** Head2\ntext\n***
  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 test-org-export/export-scope "Test 
  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/" "-L" "contrib/lisp" "--
  command-line()
  normal-top-level()
Test test-org-export/export-scope condition:
    (ert-test-failed
     ((should
       (equal
        (org-export-as ...)
        "text\n"))
      :form
      (equal "* Head1\n** Head2\ntext\n*** Head3\n" "text\n")
      :value nil :explanation
      (arrays-of-different-length 32 5 "* Head1\n** Head2\ntext\n*** Head3\n" 
"text\n" first-mismatch-at 0)))
   FAILED   95/130  test-org-export/export-scope
--8<---------------cut here---------------end--------------->8---


Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

Factory and User Sound Singles for Waldorf Q+, Q and microQ:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds