From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: test-org-babel/inline-src-blocks FAILED Date: Wed, 10 Apr 2013 22:07:31 +0200 Message-ID: <86li8qcfp8.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: 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-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, I'm just trying to reuse ERT and run the tests on my (new, Bastien=C2=A0;-)) machine. Results: --8<---------------cut here---------------start------------->8--- Ran 372 tests, 371 results as expected, 1 unexpected (2013-04-10 22:04:05+0= 200) 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 =3D (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 --=20 Sebastien Vauban