From: stardiviner <numbchild@gmail.com>
To: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Cc: org-mode <emacs-orgmode@gnu.org>
Subject: Re: [PATCH] migrate ob-clojure initiate session code from ob-clojure-literate.el into ob-clojure.el
Date: Fri, 26 Oct 2018 07:38:36 +0800 [thread overview]
Message-ID: <871s8dr403.fsf@gmail.com> (raw)
In-Reply-To: <87d0rywhfz.fsf@nicolasgoaziou.fr>
Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:
>> 6 unexpected results:
>> FAILED ob-D/inhomogeneous_table
>> FAILED ob-D/list-list-var
>> FAILED ob-D/list-var
>> FAILED ob-D/vector-var
Test ob-D/inhomogeneous_table backtrace:
signal(ert-test-failed (((should (equal '(("monday" 34) ("tuesday" 4
ert-fail(((should (equal '(("monday" 34) ("tuesday" 41) ("wednesday"
(if (unwind-protect (setq value-94 (apply fn-92 args-93)) (setq form
(let (form-description-96) (if (unwind-protect (setq value-94 (apply
(let ((value-94 'ert-form-evaluation-aborted-95)) (let (form-descrip
(let* ((fn-92 (function equal)) (args-93 (condition-case err (let ((
(save-restriction (org-babel-next-src-block 2) (let* ((fn-92 (functi
(progn (org-id-goto "e112bc2e-419a-4890-99c2-7ac4779531cc") (setq to
(unwind-protect (progn (org-id-goto "e112bc2e-419a-4890-99c2-7ac4779
(let ((save-match-data-internal (match-data))) (unwind-protect (prog
(progn (let ((save-match-data-internal (match-data))) (unwind-protec
(unwind-protect (progn (let ((save-match-data-internal (match-data))
(let ((wconfig (current-window-configuration))) (unwind-protect (pro
(unwind-protect (let ((wconfig (current-window-configuration))) (unw
(let* ((id-location (org-id-find "e112bc2e-419a-4890-99c2-7ac4779531
(if (executable-find org-babel-D-compiler) (let* ((id-location (org-
(lambda nil (if (executable-find org-babel-D-compiler) (let* ((id-lo
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name ob-D/inhomogeneous_table :documentati
ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\)" :test
ert-run-tests("\\(org\\|ob\\)" #f(compiled-function (event-type &res
ert-run-tests-batch("\\(org\\|ob\\)")
ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
(let ((org-id-track-globally t) (org-test-selector (if org-test-sele
org-test-run-batch-tests("\\(org\\|ob\\)")
eval((org-test-run-batch-tests org-test-select-re))
command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
command-line()
normal-top-level()
Test ob-D/inhomogeneous_table condition:
(ert-test-failed
((should
(equal '...
(org-babel-execute-src-block)))
:form
(equal
(("monday" 34)
("tuesday" 41)
("wednesday" 56)
("thursday" 17)
("friday" 12)
("saturday" 7)
("sunday" 4)
("Friday" "friday"))
nil)
:value nil :explanation
(different-types
(("monday" 34)
("tuesday" 41)
("wednesday" 56)
("thursday" 17)
("friday" 12)
("saturday" 7)
("sunday" 4)
("Friday" "friday"))
nil)))
FAILED 12/814 ob-D/inhomogeneous_table
executing D code block (integer_var)...
"12"
passed 13/814 ob-D/integer-var
executing D code block (list_list_var)...
Babel evaluation exited with code 1
nil
Test ob-D/list-list-var backtrace:
signal(ert-test-failed (((should (equal '((1 3) (2 4)) (org-babel-ex
ert-fail(((should (equal '((1 3) (2 4)) (org-babel-execute-src-block
(if (unwind-protect (setq value-84 (apply fn-82 args-83)) (setq form
(let (form-description-86) (if (unwind-protect (setq value-84 (apply
(let ((value-84 'ert-form-evaluation-aborted-85)) (let (form-descrip
(let* ((fn-82 (function equal)) (args-83 (condition-case err (let ((
(save-restriction (org-babel-next-src-block 6) (let* ((fn-82 (functi
(progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5") (setq to
(unwind-protect (progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cd
(let ((save-match-data-internal (match-data))) (unwind-protect (prog
(progn (let ((save-match-data-internal (match-data))) (unwind-protec
(unwind-protect (progn (let ((save-match-data-internal (match-data))
(let ((wconfig (current-window-configuration))) (unwind-protect (pro
(unwind-protect (let ((wconfig (current-window-configuration))) (unw
(let* ((id-location (org-id-find "cc65d6b3-8e8e-4f9c-94cd-f5a00cdece
(if (executable-find org-babel-D-compiler) (let* ((id-location (org-
(lambda nil (if (executable-find org-babel-D-compiler) (let* ((id-lo
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name ob-D/list-list-var :documentation "Te
ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\)" :test
ert-run-tests("\\(org\\|ob\\)" #f(compiled-function (event-type &res
ert-run-tests-batch("\\(org\\|ob\\)")
ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
(let ((org-id-track-globally t) (org-test-selector (if org-test-sele
org-test-run-batch-tests("\\(org\\|ob\\)")
eval((org-test-run-batch-tests org-test-select-re))
command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
command-line()
normal-top-level()
Test ob-D/list-list-var condition:
(ert-test-failed
((should
(equal '...
(org-babel-execute-src-block)))
:form
(equal
((1 3)
(2 4))
nil)
:value nil :explanation
(different-types
((1 3)
(2 4))
nil)))
FAILED 14/814 ob-D/list-list-var
executing D code block (list_var)...
Babel evaluation exited with code 1
nil
Test ob-D/list-var backtrace:
signal(ert-test-failed (((should (string= "abcdef2" (org-babel-execu
ert-fail(((should (string= "abcdef2" (org-babel-execute-src-block)))
(if (unwind-protect (setq value-64 (apply fn-62 args-63)) (setq form
(let (form-description-66) (if (unwind-protect (setq value-64 (apply
(let ((value-64 'ert-form-evaluation-aborted-65)) (let (form-descrip
(let* ((fn-62 (function string=)) (args-63 (condition-case err (let
(save-restriction (org-babel-next-src-block 2) (let* ((fn-62 (functi
(progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5") (setq to
(unwind-protect (progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cd
(let ((save-match-data-internal (match-data))) (unwind-protect (prog
(progn (let ((save-match-data-internal (match-data))) (unwind-protec
(unwind-protect (progn (let ((save-match-data-internal (match-data))
(let ((wconfig (current-window-configuration))) (unwind-protect (pro
(unwind-protect (let ((wconfig (current-window-configuration))) (unw
(let* ((id-location (org-id-find "cc65d6b3-8e8e-4f9c-94cd-f5a00cdece
(if (executable-find org-babel-D-compiler) (let* ((id-location (org-
(lambda nil (if (executable-find org-babel-D-compiler) (let* ((id-lo
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name ob-D/list-var :documentation "Test of
ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\)" :test
ert-run-tests("\\(org\\|ob\\)" #f(compiled-function (event-type &res
ert-run-tests-batch("\\(org\\|ob\\)")
ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
(let ((org-id-track-globally t) (org-test-selector (if org-test-sele
org-test-run-batch-tests("\\(org\\|ob\\)")
eval((org-test-run-batch-tests org-test-select-re))
command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
command-line()
normal-top-level()
Test ob-D/list-var condition:
(ert-test-failed
((should
(string= "abcdef2"
(org-babel-execute-src-block)))
:form
(string= "abcdef2" nil)
:value nil))
FAILED 15/814 ob-D/list-var
Babel evaluation exited with code 1
nil
Test ob-D/vector-var backtrace:
signal(ert-test-failed (((should (equal 122 (org-babel-execute-src-b
ert-fail(((should (equal 122 (org-babel-execute-src-block))) :form (
(if (unwind-protect (setq value-74 (apply fn-72 args-73)) (setq form
(let (form-description-76) (if (unwind-protect (setq value-74 (apply
(let ((value-74 'ert-form-evaluation-aborted-75)) (let (form-descrip
(let* ((fn-72 (function equal)) (args-73 (condition-case err (let ((
(save-restriction (org-babel-next-src-block 4) (let* ((fn-72 (functi
(progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5") (setq to
(unwind-protect (progn (org-id-goto "cc65d6b3-8e8e-4f9c-94cd-f5a00cd
(let ((save-match-data-internal (match-data))) (unwind-protect (prog
(progn (let ((save-match-data-internal (match-data))) (unwind-protec
(unwind-protect (progn (let ((save-match-data-internal (match-data))
(let ((wconfig (current-window-configuration))) (unwind-protect (pro
(unwind-protect (let ((wconfig (current-window-configuration))) (unw
(let* ((id-location (org-id-find "cc65d6b3-8e8e-4f9c-94cd-f5a00cdece
(if (executable-find org-babel-D-compiler) (let* ((id-location (org-
(lambda nil (if (executable-find org-babel-D-compiler) (let* ((id-lo
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name ob-D/vector-var :documentation "Test
ert-run-or-rerun-test(#s(ert--stats :selector "\\(org\\|ob\\)" :test
ert-run-tests("\\(org\\|ob\\)" #f(compiled-function (event-type &res
ert-run-tests-batch("\\(org\\|ob\\)")
ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
(let ((org-id-track-globally t) (org-test-selector (if org-test-sele
org-test-run-batch-tests("\\(org\\|ob\\)")
eval((org-test-run-batch-tests org-test-select-re))
command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
command-line()
normal-top-level()
Test ob-D/vector-var condition:
(ert-test-failed
((should
(equal 122
(org-babel-execute-src-block)))
:form
(equal 122 nil)
:value nil :explanation
(different-types 122 nil)))
FAILED 20/814 ob-D/vector-var
>> FAILED test-org-clock/clocktable/lang
>> FAILED test-org-colview/columns-width
For this two failed test, after I run it again 3 times, it does not appears anymore.
--
[ stardiviner ]
I try to make every word tell the meaning what I want to express.
Blog: https://stardiviner.github.io/
IRC(freenode): stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
prev parent reply other threads:[~2018-10-25 23:38 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-19 10:22 [PATCH] migrate ob-clojure initiate session code from ob-clojure-literate.el into ob-clojure.el stardiviner
2018-04-20 8:59 ` Nicolas Goaziou
2018-10-23 12:02 ` stardiviner
2018-10-24 11:41 ` Nicolas Goaziou
2018-10-25 5:51 ` stardiviner
2018-10-25 8:37 ` Nicolas Goaziou
2018-10-25 23:38 ` stardiviner [this message]
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=871s8dr403.fsf@gmail.com \
--to=numbchild@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=mail@nicolasgoaziou.fr \
/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).