Re: [O] [PATCH] migrate ob-clojure initiate session code from ob-clojure-literate.el into ob-clojure.el

[stardiviner]

Nicolas Goaziou <address@hidden> 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