From mboxrd@z Thu Jan 1 00:00:00 1970 From: stardiviner 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 Message-ID: <871s8dr403.fsf@gmail.com> References: <87a7tza42f.fsf@gmail.com> <87o9iegsn7.fsf@nicolasgoaziou.fr> <877ei8uaz1.fsf@gmail.com> <874ldby3k2.fsf@nicolasgoaziou.fr> <875zxqr2un.fsf@gmail.com> <87d0rywhfz.fsf@nicolasgoaziou.fr> Reply-To: numbchild@gmail.com Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60298) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gFpDB-0001NX-EH for emacs-orgmode@gnu.org; Thu, 25 Oct 2018 19:38:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gFpD8-0007tQ-94 for emacs-orgmode@gnu.org; Thu, 25 Oct 2018 19:38:45 -0400 Received: from [61.175.244.13] (port=21408 helo=dark.localdomain) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gFpD6-0007sc-DP for emacs-orgmode@gnu.org; Thu, 25 Oct 2018 19:38:42 -0400 In-reply-to: <87d0rywhfz.fsf@nicolasgoaziou.fr> 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@gnu.org Sender: "Emacs-orgmode" To: Nicolas Goaziou Cc: org-mode Nicolas Goaziou 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