"Sebastien Vauban" <wxhgmqzgw...@spammotel.com> writes: > Eric, > > Eric Schulte wrote: >> "Sebastien Vauban" <wxhgmqzgw...@spammotel.com> writes: >>> Eric Schulte wrote: >>>>> Extra question: tested with a sh block, both of the above do work, that is >>>>> with strings or symbols. Which one is supposed to be better (that is, >>>>> will be >>>>> more portable with time), if there is one? >>>> >>>> Both will be maintained. The contribution of a test exercising both >>>> options could provide an extra guarantee of perseverance. This is also >>>> a good first step towards editing the code. :) >>> >>> Here's my trial to do so [...]. >>> Does this correspond to what you're asking for? >> >> Close, could you prepare this as a patch against the current code base? >> That way I can simply apply it locally and more easily test it. >
See the above, could you prepare this as a patch so that I can more easily read/use/test it? Thanks, > > I've fixed the "abortion" problem I had with the test... > > Updated version: > > --8<---------------cut here---------------start------------->8--- > (ert-deftest test-ob/specific-colnames () > "Test passing specific column names." > (should > (equal "#+name: input-table > | id | var1 | > |----+------| > | 1 | bar | > | 2 | baz | > > #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author) > echo \"$data\" > #+end_src > > #+results: > | Rev | Author | > |-----+--------| > | 1 | bar | > | 2 | baz | > > " > (org-test-with-temp-text "#+name: input-table > | id | var1 | > |----+------| > | 1 | bar | > | 2 | baz | > > #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author) > echo \"$data\" > #+end_src > " > (org-babel-execute-src-block) > (buffer-string))))) > --8<---------------cut here---------------end--------------->8--- > > Though, it generates an incomprehensible error (for me): > > --8<---------------cut here---------------start------------->8--- > Debugger entered--Lisp error: (wrong-type-argument consp nil) > apply(debug (error (wrong-type-argument consp nil))) > ert--run-test-debugger([cl-struct-ert--test-execution-info > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let ... ...)))) > (let ((value-804 (quote ert-form-evaluation-aborted-805))) (let > (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail > form-description-806))) value-804))) nil :passed nil] > [cl-struct-ert-test-failed nil nil (wrong-type-argument consp nil) ((t setcar > nil ((:comments . "") (:shebang . "") (:cache . "") (:padline . "") (:noweb . > "") (:tangle . "") (:exports . "") (:results . ""))) (nil let* ((c (nthcdr 2 > i))) (setcar c merged-params)) (nil let ((i info)) (let* ((c (nthcdr 2 i))) > (setcar c merged-params)) i) (nil org-babel-check-evaluate (let ((i info)) > (let* ((c ...)) (setcar c merged-params)) i)) (nil if > (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c > merged-params)) i)) (progn (let* ((params ...) (cachep ...) (new-hash ...) > (old-hash ...) (cache-current-p ...)) (cond (cache-current-p ...) (... > ...))))) (nil let* ((info (if info (copy-tree info) > (org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth > 2 info) params))) (if (org-babel-check-evaluate (let (...) (let* ... ...) i)) > (progn (let* (... ... ... ... ...) (cond ... ...))))) (t > org-babel-execute-src-block) (nil progn (org-mode) (progn (insert "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (nil unwind-protect (progn > (org-mode) (progn (insert "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))) (nil save-current-buffer (set-buffer temp-buffer) > (unwind-protect (progn (org-mode) (progn (insert "#+name: input-table\n| id | > var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char ...)) (org-babel-execute-src-block) > (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) > (nil let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer > (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn ... ...) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))))) (nil list "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n| 1 > | bar |\n| 2 | baz |\n\n" (let ((temp-buffer (generate-new-buffer " > *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect > (progn ... ... ... ...) (and ... ...))))) (nil let ((fn-802 (function equal)) > (args-803 (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | > bar |\n| 2 | baz |\n\n#+begin_src sh :var data=input-table :exports > results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| > Rev | Author |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" > (let ... ...)))) (let ((value-804 (quote ert-form-evaluation-aborted-805))) > (let (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail > form-description-806))) value-804)) (t (lambda nil (let ((fn-802 ...) > (args-803 ...)) (let (...) (let ... ...) value-804)))) (t byte-code > "\306\307!rq\210\310\216\311 > \312\216\313\314\315\316\317D\316\nD\320FE\321\211\322\211\nJ\323H>\2046\324\325\326\327#\210\nJ\330H\323H > >\204H\324\325\331\332#\210\nJ\323H>\204X\324\325\326\327#\210\nJ\330H\333H > \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--infos > debug-ignored-errors debug-on-quit generate-new-buffer " *temp*" ((byte-code > "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) > current-window-configuration ((set-window-configuration wconfig)) lambda > (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\302J > \"\207" [G77601 debugger-args ert--run-test-debugger] 3] --cl-rest-- t nil 0 > error "%s accessing a non-%s" ert--test-execution-info-test > ert--test-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error > debugger cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) > (t ert--run-test-internal #0) (t byte-code > "\306\307!\211\211r\310\311!q\210\312 > d\313\223)L\210)\314\216\306\315!\306\316!\211\211\317\320\317\321\313\211#\322\313\211&L\210)\n\211\313L\210)\323\216\324\325\326\327\330D\327\nD\327D\327D\331\257E\332B\333J!\210.\313\207" > [--cl-begin-marker-- v --cl-should-form-accu-- --cl-info-- v ert-test > make-symbol "--begin-marker--" get-buffer-create "*Messages*" make-marker nil > ((byte-code "J\301\211\223\207" [--cl-begin-marker-- nil] 3)) "--info--" > "--should-form-accu--" vector cl-struct-ert--test-execution-info > cl-struct-ert-test-aborted-with-non-local-exit #[nil "\300\301\302\"\207" > [throw --cl-block-error-- nil] 3] ((byte-code "J\306H > >\204\307\310\311\312#\210J\313H\211\306H>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 > > \210\211J\237L\210)\n\306H>\204Q\307\310\322\315#\210\n\211\313JI\210)\306H>\204l\307\310\323\324#\210\211\325\nI\210*\306\207" > [--cl-info-- cl-struct-ert--test-execution-info-tags result > cl-struct-ert-test-result-tags v --cl-begin-marker-- 0 error "%s accessing a > non-%s" ert--test-execution-info-result ert--test-execution-info 2 > ert-test-result-messages ert-test-result 1 get-buffer-create "*Messages*" > ert--force-message-log-buffer-truncation ert-test-result-should-forms > ert-test-most-recent-result ert-test 4 --cl-should-form-accu-- v v > cl-struct-ert-test-tags v] 5)) lambda (&rest --cl-rest--) apply quote > #[(G77602 G77603 G77604 form-description) "\211\nJBL)\207" [G77602 v > form-description] 4] --cl-rest-- t ert--run-test-internal v > ert--running-tests message-log-max ert--should-execution-observer] 9) (t > ert-run-test [cl-struct-ert-test test-ob/specific-colnames "Test passing > specific column names." (lambda nil (let (... ...) (let ... ... value-804))) > nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats > "specific-colnames" [[cl-struct-ert-test test-ob/specific-colnames "Test > passing specific column names." (lambda nil ...) nil :passed nil]] > #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data > (test-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 > 127000 0)] 0 0 0 0 (20848 25504 96000 0) (20848 25504 127000 0) nil > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ... ...)) nil :passed nil] 1366320037.899] > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let (... ...) (let ... ... value-804))) nil :passed nil] > (lambda (&rest --cl-rest--) (apply (quote #[... "\306\307\"\2032 > \211G\310U\203\n@\202\311\312\313\nGD\"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224 > > \2110G\317U\203M0\211A0@\202U\311\312\3130GD\"0@12J\3201\204h\321\202i\322\323!\324!\325!3\3263!\203\321\202\204\327\3303\")%\210\331r\fJq\2104)\"+\207\306\332\"\203 > > \2115G\317U\203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\3336\"8\33478\"\211\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\2109\211;\3106I\210*<8\344\313\345\"I\210\3467\"\210\3477\".\207\306\350\"\203\301 > > \211=G\351U\2033=\211A=@\202;\311\312\313=GD\"=\211A=@6=@>r\fJq\21047\3336\"8\33478\"\211\317H\2119\337H:>\204v\340\341\352\343#\2109\317H)\203\242\317H\2119\337H:>\204\223\340\341\352\343#\2109\211?\317\3536>\"I\210*<8\344>\3536>\"\"I\210\3467\"\210\3477\".\207\340\354\355#\205\312\313\207" > [event-type event-args --cl-rest-- stats G77608 v eql run-started 1 signal > wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer > run-ended 2 "%sRan %s tests, %s results were as expected%s" "" "Aborted: " > ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected > zerop format ", %s unexpected" ert--results-update-stats-display test-started > ert--stats-test-pos ewoc-nth cl-assertion-failed node 0 error "%s accessing a > non-%s" ert--ewoc-entry-test ert--ewoc-entry ert-char-for-test-result t > ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 > ert--ewoc-entry-hidden-p ert-test-result-expected-p "cl-ecase failed: %s, %s" > ... G77607 G77609 --cl-rest-- abortedp ...] 9]) (quote --message-fn--) (quote > --listener--) (quote --buffer--) (quote --output-buffer-name--) > --cl-rest--))) (t ert-results-rerun-test-at-point) (t > ert-results-rerun-test-at-point-debugging-errors) (t call-interactively > ert-results-rerun-test-at-point-debugging-errors nil nil)) nil] #[nil > "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t] (error > (wrong-type-argument consp nil))) > #[(G77601 &rest debugger-args) "\302J \"\207" [G77601 debugger-args > ert--run-test-debugger] 3](--info-- error (wrong-type-argument consp nil)) > apply(#[(G77601 &rest debugger-args) "\302J \"\207" [G77601 > debugger-args ert--run-test-debugger] 3] --info-- (error (wrong-type-argument > consp nil))) > (lambda (&rest --cl-rest--) (apply (quote #[(G77601 &rest debugger-args) > "\302J \"\207" [G77601 debugger-args ert--run-test-debugger] 3]) (quote > --info--) --cl-rest--))(error (wrong-type-argument consp nil)) > setcar(nil ((:comments . "") (:shebang . "") (:cache . "") (:padline . "") > (:noweb . "") (:tangle . "") (:exports . "") (:results . ""))) > (let* ((c (nthcdr 2 i))) (setcar c merged-params)) > (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i) > (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar > c merged-params)) i)) > (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) > (setcar c merged-params)) i)) (progn (let* ((params (if params > (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not > arg) (cdr (assoc :cache params)) (string= "yes" (cdr ...)))) (new-hash (if > cachep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn > (org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash > (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion > (goto-char (org-babel-where-is-src-block-result nil info)) (end-of-line 1) > (forward-char 1) (let (...) (message ...) result))) > ((org-babel-confirm-evaluate (let (...) (let* ... ...) i)) (let* ((lang ...) > (result-params ...) (body ...) (dir ...) (default-directory ...) > (org-babel-call-process-region-original ...) (indent ...) result cmd) > (unwind-protect (let ... ... ... ...) (setq call-process-region ...)))))))) > (let* ((info (if info (copy-tree info) (org-babel-get-src-block-info))) > (merged-params (org-babel-merge-params (nth 2 info) params))) (if > (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c > merged-params)) i)) (progn (let* ((params (if params > (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not > arg) (cdr ...) (string= "yes" ...))) (new-hash (if cachep (progn ...))) > (old-hash (if cachep (progn ...))) (cache-current-p (and (not arg) new-hash > (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion > (goto-char ...) (end-of-line 1) (forward-char 1) (let ... ... result))) > ((org-babel-confirm-evaluate (let ... ... i)) (let* (... ... ... ... ... ... > ... result cmd) (unwind-protect ... ...)))))))) > org-babel-execute-src-block() > (progn (org-mode) (progn (insert "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) > (unwind-protect (progn (org-mode) (progn (insert "#+name: input-table\n| id > | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))) > (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn > (org-mode) (progn (insert "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer)))) > (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer > (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn (insert > "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))))) > (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| > 2 | baz |\n\n#+begin_src sh :var data=input-table :exports results :colnames > '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let > ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer > (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn (insert > "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer)))))) > (let ((fn-802 (function equal)) (args-803 (list "#+name: input-table\n| id > | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n| 1 > | bar |\n| 2 | baz |\n\n" (let ((temp-buffer (generate-new-buffer " > *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect > (progn ... ... ... ...) (and ... ...))))))) (let ((value-804 (quote > ert-form-evaluation-aborted-805))) (let (form-description-806) (if > (unwind-protect (setq value-804 (apply fn-802 args-803)) (setq > form-description-806 (nconc (list ...) (list :form ...) (if ... nil ...) (let > ... ...))) (ert--signal-should-execution form-description-806)) nil (ert-fail > form-description-806))) value-804)) > (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let > ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) > (unwind-protect ... ...)))))) (let ((value-804 (quote > ert-form-evaluation-aborted-805))) (let (form-description-806) (if > (unwind-protect (setq value-804 (apply fn-802 args-803)) (setq > form-description-806 (nconc ... ... ... ...)) (ert--signal-should-execution > form-description-806)) nil (ert-fail form-description-806))) value-804)))() > byte-code("\306\307!rq\210\310\216\311 > \312\216\313\314\315\316\317D\316\nD\320FE\321\211\322\211\nJ\323H>\2046\324\325\326\327#\210\nJ\330H\323H > >\204H\324\325\331\332#\210\nJ\323H>\204X\324\325\326\327#\210\nJ\330H\333H > \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--infos > debug-ignored-errors debug-on-quit generate-new-buffer " *temp*" ((byte-code > "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) > current-window-configuration ((set-window-configuration wconfig)) lambda > (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\302J > \"\207" [G77601 debugger-args ert--run-test-debugger] 3] --cl-rest-- t nil 0 > error "%s accessing a non-%s" ert--test-execution-info-test > ert--test-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error > debugger cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) > ert--run-test-internal([cl-struct-ert--test-execution-info > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let ... ...)))) > (let ((value-804 (quote ert-form-evaluation-aborted-805))) (let > (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail > form-description-806))) value-804))) nil :passed nil] > [cl-struct-ert-test-failed nil nil (wrong-type-argument consp nil) ((t setcar > nil ((:comments . "") (:shebang . "") (:cache . "") (:padline . "") (:noweb . > "") (:tangle . "") (:exports . "") (:results . ""))) (nil let* ((c (nthcdr 2 > i))) (setcar c merged-params)) (nil let ((i info)) (let* ((c (nthcdr 2 i))) > (setcar c merged-params)) i) (nil org-babel-check-evaluate (let ((i info)) > (let* ((c ...)) (setcar c merged-params)) i)) (nil if > (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c > merged-params)) i)) (progn (let* ((params ...) (cachep ...) (new-hash ...) > (old-hash ...) (cache-current-p ...)) (cond (cache-current-p ...) (... > ...))))) (nil let* ((info (if info (copy-tree info) > (org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth > 2 info) params))) (if (org-babel-check-evaluate (let (...) (let* ... ...) i)) > (progn (let* (... ... ... ... ...) (cond ... ...))))) (t > org-babel-execute-src-block) (nil progn (org-mode) (progn (insert "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (nil unwind-protect (progn > (org-mode) (progn (insert "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char (point-min))) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))) (nil save-current-buffer (set-buffer temp-buffer) > (unwind-protect (progn (org-mode) (progn (insert "#+name: input-table\n| id | > var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n") (goto-char ...)) (org-babel-execute-src-block) > (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) > (nil let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer > (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn ... ...) > (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) > (kill-buffer temp-buffer))))) (nil list "#+name: input-table\n| id | var1 > |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var > data=input-table :exports results :colnames '(Rev Author)\necho > \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n| 1 > | bar |\n| 2 | baz |\n\n" (let ((temp-buffer (generate-new-buffer " > *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect > (progn ... ... ... ...) (and ... ...))))) (nil let ((fn-802 (function equal)) > (args-803 (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | > bar |\n| 2 | baz |\n\n#+begin_src sh :var data=input-table :exports > results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| > Rev | Author |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" > (let ... ...)))) (let ((value-804 (quote ert-form-evaluation-aborted-805))) > (let (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail > form-description-806))) value-804)) (t (lambda nil (let ((fn-802 ...) > (args-803 ...)) (let (...) (let ... ...) value-804)))) (t byte-code > "\306\307!rq\210\310\216\311 > \312\216\313\314\315\316\317D\316\nD\320FE\321\211\322\211\nJ\323H>\2046\324\325\326\327#\210\nJ\330H\323H > >\204H\324\325\331\332#\210\nJ\323H>\204X\324\325\326\327#\210\nJ\330H\333H > \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--infos > debug-ignored-errors debug-on-quit generate-new-buffer " *temp*" ((byte-code > "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) > current-window-configuration ((set-window-configuration wconfig)) lambda > (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\302J > \"\207" [G77601 debugger-args ert--run-test-debugger] 3] --cl-rest-- t nil 0 > error "%s accessing a non-%s" ert--test-execution-info-test > ert--test-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error > debugger cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) > (t ert--run-test-internal #0) (t byte-code > "\306\307!\211\211r\310\311!q\210\312 > d\313\223)L\210)\314\216\306\315!\306\316!\211\211\317\320\317\321\313\211#\322\313\211&L\210)\n\211\313L\210)\323\216\324\325\326\327\330D\327\nD\327D\327D\331\257E\332B\333J!\210.\313\207" > [--cl-begin-marker-- v --cl-should-form-accu-- --cl-info-- v ert-test > make-symbol "--begin-marker--" get-buffer-create "*Messages*" make-marker nil > ((byte-code "J\301\211\223\207" [--cl-begin-marker-- nil] 3)) "--info--" > "--should-form-accu--" vector cl-struct-ert--test-execution-info > cl-struct-ert-test-aborted-with-non-local-exit #[nil "\300\301\302\"\207" > [throw --cl-block-error-- nil] 3] ((byte-code "J\306H > >\204\307\310\311\312#\210J\313H\211\306H>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 > > \210\211J\237L\210)\n\306H>\204Q\307\310\322\315#\210\n\211\313JI\210)\306H>\204l\307\310\323\324#\210\211\325\nI\210*\306\207" > [--cl-info-- cl-struct-ert--test-execution-info-tags result > cl-struct-ert-test-result-tags v --cl-begin-marker-- 0 error "%s accessing a > non-%s" ert--test-execution-info-result ert--test-execution-info 2 > ert-test-result-messages ert-test-result 1 get-buffer-create "*Messages*" > ert--force-message-log-buffer-truncation ert-test-result-should-forms > ert-test-most-recent-result ert-test 4 --cl-should-form-accu-- v v > cl-struct-ert-test-tags v] 5)) lambda (&rest --cl-rest--) apply quote > #[(G77602 G77603 G77604 form-description) "\211\nJBL)\207" [G77602 v > form-description] 4] --cl-rest-- t ert--run-test-internal v > ert--running-tests message-log-max ert--should-execution-observer] 9) (t > ert-run-test [cl-struct-ert-test test-ob/specific-colnames "Test passing > specific column names." (lambda nil (let (... ...) (let ... ... value-804))) > nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats > "specific-colnames" [[cl-struct-ert-test test-ob/specific-colnames "Test > passing specific column names." (lambda nil ...) nil :passed nil]] > #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data > (test-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 > 127000 0)] 0 0 0 0 (20848 25504 96000 0) (20848 25504 127000 0) nil > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ... ...)) nil :passed nil] 1366320037.899] > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let (... ...) (let ... ... value-804))) nil :passed nil] > (lambda (&rest --cl-rest--) (apply (quote #[... "\306\307\"\2032 > \211G\310U\203\n@\202\311\312\313\nGD\"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224 > > \2110G\317U\203M0\211A0@\202U\311\312\3130GD\"0@12J\3201\204h\321\202i\322\323!\324!\325!3\3263!\203\321\202\204\327\3303\")%\210\331r\fJq\2104)\"+\207\306\332\"\203 > > \2115G\317U\203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\3336\"8\33478\"\211\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\2109\211;\3106I\210*<8\344\313\345\"I\210\3467\"\210\3477\".\207\306\350\"\203\301 > > \211=G\351U\2033=\211A=@\202;\311\312\313=GD\"=\211A=@6=@>r\fJq\21047\3336\"8\33478\"\211\317H\2119\337H:>\204v\340\341\352\343#\2109\317H)\203\242\317H\2119\337H:>\204\223\340\341\352\343#\2109\211?\317\3536>\"I\210*<8\344>\3536>\"\"I\210\3467\"\210\3477\".\207\340\354\355#\205\312\313\207" > [event-type event-args --cl-rest-- stats G77608 v eql run-started 1 signal > wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer > run-ended 2 "%sRan %s tests, %s results were as expected%s" "" "Aborted: " > ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected > zerop format ", %s unexpected" ert--results-update-stats-display test-started > ert--stats-test-pos ewoc-nth cl-assertion-failed node 0 error "%s accessing a > non-%s" ert--ewoc-entry-test ert--ewoc-entry ert-char-for-test-result t > ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 > ert--ewoc-entry-hidden-p ert-test-result-expected-p "cl-ecase failed: %s, %s" > ... G77607 G77609 --cl-rest-- abortedp ...] 9]) (quote --message-fn--) (quote > --listener--) (quote --buffer--) (quote --output-buffer-name--) > --cl-rest--))) (t ert-results-rerun-test-at-point) (t > ert-results-rerun-test-at-point-debugging-errors) (t call-interactively > ert-results-rerun-test-at-point-debugging-errors nil nil)) nil] #[nil > "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] debug t]) > byte-code("\306\307!\211\211r\310\311!q\210\312 > d\313\223)L\210)\314\216\306\315!\306\316!\211\211\317\320\317\321\313\211#\322\313\211&L\210)\n\211\313L\210)\323\216\324\325\326\327\330D\327\nD\327D\327D\331\257E\332B\333J!\210.\313\207" > [--cl-begin-marker-- v --cl-should-form-accu-- --cl-info-- v ert-test > make-symbol "--begin-marker--" get-buffer-create "*Messages*" make-marker nil > ((byte-code "J\301\211\223\207" [--cl-begin-marker-- nil] 3)) "--info--" > "--should-form-accu--" vector cl-struct-ert--test-execution-info > cl-struct-ert-test-aborted-with-non-local-exit #[nil "\300\301\302\"\207" > [throw --cl-block-error-- nil] 3] ((byte-code "J\306H > >\204\307\310\311\312#\210J\313H\211\306H>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 > > \210\211J\237L\210)\n\306H>\204Q\307\310\322\315#\210\n\211\313JI\210)\306H>\204l\307\310\323\324#\210\211\325\nI\210*\306\207" > [--cl-info-- cl-struct-ert--test-execution-info-tags result > cl-struct-ert-test-result-tags v --cl-begin-marker-- 0 error "%s accessing a > non-%s" ert--test-execution-info-result ert--test-execution-info 2 > ert-test-result-messages ert-test-result 1 get-buffer-create "*Messages*" > ert--force-message-log-buffer-truncation ert-test-result-should-forms > ert-test-most-recent-result ert-test 4 --cl-should-form-accu-- v v > cl-struct-ert-test-tags v] 5)) lambda (&rest --cl-rest--) apply quote > #[(G77602 G77603 G77604 form-description) "\211\nJBL)\207" [G77602 v > form-description] 4] --cl-rest-- t ert--run-test-internal v > ert--running-tests message-log-max ert--should-execution-observer] 9) > ert-run-test([cl-struct-ert-test test-ob/specific-colnames "Test passing > specific column names." (lambda nil (let ((fn-802 (function equal)) (args-803 > (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 > | baz |\n\n#+begin_src sh :var data=input-table :exports results :colnames > '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let (...) > (save-current-buffer ... ...))))) (let ((value-804 (quote > ert-form-evaluation-aborted-805))) (let (form-description-806) (if > (unwind-protect (setq value-804 ...) (setq form-description-806 ...) > (ert--signal-should-execution form-description-806)) nil (ert-fail > form-description-806))) value-804))) nil :passed nil]) > ert-run-or-rerun-test([cl-struct-ert--stats "specific-colnames" > [[cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" ...))) (let > ((value-804 ...)) (let (form-description-806) (if ... nil ...)) value-804))) > nil :passed nil]] #s(hash-table size 1 test eql rehash-size 1.5 > rehash-threshold 0.8 data (test-ob/specific-colnames 0)) [nil] [(20848 25509 > 799000 0)] [(20848 25504 127000 0)] 0 0 0 0 (20848 25504 96000 0) (20848 > 25504 127000 0) nil [cl-struct-ert-test test-ob/specific-colnames "Test > passing specific column names." (lambda nil (let ((fn-802 (function equal)) > (args-803 (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | > bar |\n| 2 | baz |\n\n#+begin_src sh :var data=input-table :exports > results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| > Rev | Author |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" > (let ... ...)))) (let ((value-804 (quote ert-form-evaluation-aborted-805))) > (let (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail > form-description-806))) value-804))) nil :passed nil] 1366320037.899] > [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column > names." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: > input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz > |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev > Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author > |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let (...) > (save-current-buffer ... ...))))) (let ((value-804 (quote > ert-form-evaluation-aborted-805))) (let (form-description-806) (if > (unwind-protect (setq value-804 ...) (setq form-description-806 ...) > (ert--signal-should-execution form-description-806)) nil (ert-fail > form-description-806))) value-804))) nil :passed nil] (lambda (&rest > --cl-rest--) (apply (quote #[(G77606 G77607 G77608 G77609 event-type &rest > event-args) "\306\307\"\2032 > \211G\310U\203\n@\202\311\312\313\nGD\"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224 > > \2110G\317U\203M0\211A0@\202U\311\312\3130GD\"0@12J\3201\204h\321\202i\322\323!\324!\325!3\3263!\203\321\202\204\327\3303\")%\210\331r\fJq\2104)\"+\207\306\332\"\203 > > \2115G\317U\203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\3336\"8\33478\"\211\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\2109\211;\3106I\210*<8\344\313\345\"I\210\3467\"\210\3477\".\207\306\350\"\203\301 > > \211=G\351U\2033=\211A=@\202;\311\312\313=GD\"=\211A=@6=@>r\fJq\21047\3336\"8\33478\"\211\317H\2119\337H:>\204v\340\341\352\343#\2109\317H)\203\242\317H\2119\337H:>\204\223\340\341\352\343#\2109\211?\317\3536>\"I\210*<8\344>\3536>\"\"I\210\3467\"\210\3477\".\207\340\354\355#\205\312\313\207" > [event-type event-args --cl-rest-- stats G77608 v eql run-started 1 signal > wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer > run-ended 2 "%sRan %s tests, %s results were as expected%s" "" "Aborted: " > ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected > zerop format ", %s unexpected" ert--results-update-stats-display test-started > ert--stats-test-pos ewoc-nth cl-assertion-failed node 0 error "%s accessing a > non-%s" ert--ewoc-entry-test ert--ewoc-entry ert-char-for-test-result t > ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 > ert--ewoc-entry-hidden-p ert-test-result-expected-p "cl-ecase failed: %s, %s" > (run-started run-ended test-started test-ended) G77607 G77609 --cl-rest-- > abortedp ...] 9]) (quote --message-fn--) (quote --listener--) (quote > --buffer--) (quote --output-buffer-name--) --cl-rest--))) > ert-results-rerun-test-at-point() > ert-results-rerun-test-at-point-debugging-errors() > call-interactively(ert-results-rerun-test-at-point-debugging-errors nil nil) > --8<---------------cut here---------------end--------------->8--- > > Any idea? > > Best regards, > Seb -- Eric Schulte http://cs.unm.edu/~eschulte