From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: test-org-babel/inline-src-blocks FAILED
Date: Wed, 10 Apr 2013 22:07:31 +0200 [thread overview]
Message-ID: <86li8qcfp8.fsf@somewhere.org> (raw)
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
next reply other threads:[~2013-04-10 20:07 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-04-10 20:07 Sebastien Vauban [this message]
2013-04-10 20:22 ` test-org-babel/inline-src-blocks FAILED Achim Gratz
2013-04-10 20:42 ` Sebastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=86li8qcfp8.fsf@somewhere.org \
--to=wxhgmqzgwmuf-genee64ty+gs+fvcfc7uqw@public.gmane.org \
--cc=emacs-orgmode-mXXj517/zsQ@public.gmane.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).