[O] test-org-babel/inline-src-blocks FAILED

[Sebastien Vauban]

Hello,

I'm just trying to reuse ERT and run the tests on my (new, Bastien ;-))
machine.

Results:

--8<---------------cut here---------------start------------->8---
Ran 372 tests, 371 results as expected, 1 unexpected (2013-04-10 22:04:05+0200)
10 expected failures

1 unexpected results:
   FAILED  test-org-babel/inline-src-blocks
--8<---------------cut here---------------end--------------->8---

More information:

--8<---------------cut here---------------start------------->8---
   passed   72/372  test-org-babel/get-src-block-info-tangle
executing Sh code block...
Wrote /cygdrive/c/Users/Seb/AppData/Local/Temp/ob-input-9128wq
"1"
executing Sh code block...
Wrote /cygdrive/c/Users/Seb/AppData/Local/Temp/ob-input-912VZM
"3"
Test test-org-babel/inline-src-blocks backtrace:
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((i 6) (fram
  (block nil (let* ((i 6) (frame nil) (--cl-var-- nil)) (while (progn
  (loop for i from 6 for frame = (backtrace-frame i) while frame colle
  ert--record-backtrace()
  (let* ((condition (first more-debugger-args)) (type (case (car condi
  (cond ((member* first-debugger-arg (quote (lambda debug t exit nil))
  (case first-debugger-arg ((lambda debug t exit nil) (apply (ert--tes
  (ecase first-debugger-arg ((lambda debug t exit nil) (apply (ert--te
  (let* ((more-debugger-args debugger-args) (first-debugger-arg (if mo
  (progn (let* ((more-debugger-args debugger-args) (first-debugger-arg
  (destructuring-bind (first-debugger-arg &rest more-debugger-args) de
  ert--run-test-debugger([cl-struct-ert--test-execution-info [cl-struc
  (lambda (G7765 &rest debugger-args) (ert--run-test-debugger (symbol-
  apply((lambda (G7765 &rest debugger-args) (ert--run-test-debugger (s
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G7765 &rest debug
  signal(ert-test-failed (((should (equal 2 (org-babel-execute-src-blo
  ert-fail(((should (equal 2 (org-babel-execute-src-block))) :form (eq
  (if (unwind-protect (setq value-796 (apply fn-794 args-795)) (setq f
  (let (form-description-798) (if (unwind-protect (setq value-796 (app
  (let ((value-796 (quote ert-form-evaluation-aborted-797))) (let (for
  (let ((fn-794 (function equal)) (args-795 (list 2 (org-babel-execute
  (unwind-protect (let ((fn-794 (function equal)) (args-795 (list 2 (o
  (let ((save-match-data-internal (match-data))) (unwind-protect (let
  (progn (move-end-of-line 1) (re-search-forward org-babel-inline-src-
  (progn (progn (move-end-of-line 1) (re-search-forward org-babel-inli
  (macrolet ((at-next (&rest body) (\` (progn (move-end-of-line 1) (re
  (save-restriction (macrolet ((at-next (&rest body) (\` (progn (move-
  (progn (org-id-goto "54cb8dc3-298c-4883-a933-029b3c9d4b18") (setq to
  (unwind-protect (progn (org-id-goto "54cb8dc3-298c-4883-a933-029b3c9
  (let ((save-match-data-internal (match-data))) (unwind-protect (prog
  (save-match-data (org-id-goto "54cb8dc3-298c-4883-a933-029b3c9d4b18"
  (progn (save-match-data (org-id-goto "54cb8dc3-298c-4883-a933-029b3c
  (unwind-protect (progn (save-match-data (org-id-goto "54cb8dc3-298c-
  (let ((wconfig (current-window-configuration))) (unwind-protect (pro
  (save-window-excursion (save-match-data (org-id-goto "54cb8dc3-298c-
  (unwind-protect (save-window-excursion (save-match-data (org-id-goto
  (let* ((id-location (org-id-find "54cb8dc3-298c-4883-a933-029b3c9d4b
  (org-test-at-id "54cb8dc3-298c-4883-a933-029b3c9d4b18" (macrolet ((a
  (lambda nil (org-test-at-id "54cb8dc3-298c-4883-a933-029b3c9d4b18" (
  funcall((lambda nil (org-test-at-id "54cb8dc3-298c-4883-a933-029b3c9
  (let ((debugger (list (quote lambda) (quote (&rest --cl-rest--)) (li
  (unwind-protect (let ((debugger (list (quote lambda) (quote (&rest -
  (let ((wconfig (current-window-configuration))) (unwind-protect (let
  (unwind-protect (let ((wconfig (current-window-configuration))) (unw
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (let (
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
  (catch (quote ert--pass) (let ((temp-buffer (generate-new-buffer " *
  (progn (progn (progn (or (and (vectorp (symbol-value --cl-info--)) (
  (let ((--cl-info-- (make-symbol "--info--"))) (setf (symbol-value --
  (lexical-let ((info ert-test-execution-info)) (setf (ert--test-execu
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
  (let ((ert--should-execution-observer (list (quote lambda) (quote (&
  (unwind-protect (let ((ert--should-execution-observer (list (quote l
  (let ((--cl-info-- (make-symbol "--info--")) (--cl-should-form-accu-
  (unwind-protect (let ((--cl-info-- (make-symbol "--info--")) (--cl-s
  (let ((--cl-begin-marker-- (make-symbol "--begin-marker--"))) (setf
  (lexical-let ((begin-marker (with-current-buffer (get-buffer-create
  (catch (quote --cl-block-error--) (lexical-let ((begin-marker (with-
  (cl-block-wrapper (catch (quote --cl-block-error--) (lexical-let ((b
  (block error (lexical-let ((begin-marker (with-current-buffer (get-b
  ert-run-test([cl-struct-ert-test test-org-babel/inline-src-blocks ni
  (unwind-protect (ert-run-test test) (setf (aref (ert--stats-test-end
  (let ((ert--current-run-stats stats) (pos (ert--stats-test-pos stats
  ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
  (while (consp --cl-var--) (setq test (car --cl-var--)) (ert-run-or-r
  (let* ((--cl-var-- tests) (test nil)) (while (consp --cl-var--) (set
  (catch (quote --cl-block-nil--) (let* ((--cl-var-- tests) (test nil)
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var--
  (block nil (let* ((--cl-var-- tests) (test nil)) (while (consp --cl-
  (loop for test in tests do (ert-run-or-rerun-test stats test listene
  (progn (loop for test in tests do (ert-run-or-rerun-test stats test
  (unwind-protect (progn (loop for test in tests do (ert-run-or-rerun-
  (let ((ert--current-run-stats stats)) (force-mode-line-update) (unwi
  (unwind-protect (let ((ert--current-run-stats stats)) (force-mode-li
  (let ((abortedp t)) (unwind-protect (let ((ert--current-run-stats st
  (let* ((tests (ert-select-tests selector t)) (stats (ert--make-stats
  ert-run-tests("\\(org\\|ob\\)" (lambda (event-type &rest event-args)
  ert-run-tests-batch("\\(org\\|ob\\)")
  (let ((stats (ert-run-tests-batch selector))) (kill-emacs (if (zerop
  (unwind-protect (let ((stats (ert-run-tests-batch selector))) (kill-
  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" "ert.el" "-l" "ert-x.el" "-L" "/cygdrive/d/User
  command-line()
  normal-top-level()
Test test-org-babel/inline-src-blocks condition:
    (ert-test-failed
     ((should
       (equal 2
              (org-babel-execute-src-block)))
      :form
      (equal 2 3)
      :value nil :explanation
      (different-atoms
       (2 "#x2" "?")
       (3 "#x3" "?"))))
   FAILED   73/372  test-org-babel/inline-src-blocks
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

-- 
Sebastien Vauban