[O] Tests failing

[Alan Schmitt]

Hello,

I just tried to upgrade org (master) to test a small bug, and I saw that
two tests were failing:

Test test-org-export/define-derived-backend backtrace:
  signal(ert-test-failed (((should (equal (quote ((:headline . test) (
  ert-fail(((should (equal (quote ((:headline . test) (:headline . par
  (if (unwind-protect (setq value-5240 (apply fn-5238 args-5239)) (set
  (let (form-description-5242) (if (unwind-protect (setq value-5240 (a
  (let ((value-5240 (quote ert-form-evaluation-aborted-5241))) (let (f
  (let ((fn-5238 (function equal)) (args-5239 (list (quote ((:headline
  (lambda nil (let ((value-5234 (ert--gensym "ert-form-evaluation-abor
  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\211r\310\311!q\210\312 d\313\223)L\210)\3
  ert-run-test([cl-struct-ert-test test-org-export/define-derived-back
  ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
  ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) "\306
  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(("--eval" "(add-to-list 'load-path \"./lisp\")" "--ev
  command-line()
  normal-top-level()
Test test-org-export/define-derived-backend condition:
    (ert-test-failed
     ((should
       (equal '...
        (let ... ... ... ...)))
      :form
      (equal
       ((:headline . test)
        (:headline . parent))
       ((:headline . test)))
      :value nil :explanation
      (proper-lists-of-different-length 2 1
                                        ((:headline . test)
                                         (:headline . parent))
                                        ((:headline . test))
                                        first-mismatch-at 1)))
   FAILED  273/413  test-org-export/define-derived-backend
Test test-org-export/derived-backend-p backtrace:
  signal(error ("Unknown \"test2\" back-end: Aborting export"))
  error("Unknown \"%s\" back-end: Aborting export" test2)
  org-export-barf-if-invalid-backend(test2)
  (progn (org-export-barf-if-invalid-backend (quote test2)) (let ((reg
  (let (org-export-registered-backends) (progn (let ((registeredp (ass
  (setq value-5254 (let (org-export-registered-backends) (progn (let (
  (unwind-protect (setq value-5254 (let (org-export-registered-backend
  (if (unwind-protect (setq value-5254 (let (org-export-registered-bac
  (let (form-description-5255) (if (unwind-protect (setq value-5254 (l
  (let ((value-5254 (ert--gensym "ert-form-evaluation-aborted-"))) (le
  (lambda nil (let ((value-5248 (ert--gensym "ert-form-evaluation-abor
  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\211r\310\311!q\210\312 d\313\223)L\210)\3
  ert-run-test([cl-struct-ert-test test-org-export/derived-backend-p "
  ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
  ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) "\306
  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(("--eval" "(add-to-list 'load-path \"./lisp\")" "--ev
  command-line()
  normal-top-level()
Test test-org-export/derived-backend-p condition:
    (error "Unknown \"test2\" back-end: Aborting export")
   FAILED  274/413  test-org-export/derived-backend-p

Alan