From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Re: [babel] Specified colnames Date: Thu, 18 Apr 2013 23:25:49 +0200 Message-ID: <86sj2nv8de.fsf@somewhere.org> References: <86y5cuxfro.fsf@somewhere.org> <87obdp0ybb.fsf@gmail.com> <86ip3w957l.fsf@somewhere.org> <87fvz0zslt.fsf@gmail.com> <86a9p8928u.fsf@somewhere.org> <871uaffk5g.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: 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-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Eric, Eric Schulte wrote: > "Sebastien Vauban" writes: >> Eric Schulte wrote: >>>> Extra question: tested with a sh block, both of the above do work, tha= t 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. 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=3Dinput-table :exports results :colnames '(Rev Aut= hor) 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=3Dinput-table :exports results :colnames '(Rev Aut= hor) 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." (lamb= da 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=3Dinput-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 (quo= te ert-form-evaluation-aborted-805))) (let (form-description-806) (if (unwi= nd-protect ... ... ...) nil (ert-fail form-description-806))) value-804))) = nil :passed nil] [cl-struct-ert-test-failed nil nil (wrong-type-argument co= nsp nil) ((t setcar nil ((:comments . "") (:shebang . "") (:cache . "") (:p= adline . "") (: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)) (ni= l if (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c merged= -params)) i)) (progn (let* ((params ...) (cachep ...) (new-hash ...) (old-h= ash ...) (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-babe= l-check-evaluate (let (...) (let* ... ...) i)) (progn (let* (... ... ... ..= . ...) (cond ... ...))))) (t org-babel-execute-src-block) (nil progn (org-m= ode) (progn (insert "#+name: input-table\n| id | var1 |\n|----+------|\n| = 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :export= s results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-char= (point-min))) (org-babel-execute-src-block) (buffer-string)) (nil unwind-p= rotect (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= =3Dinput-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 sa= ve-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=3Dinput-table :exports r= esults :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-char ..= .)) (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-b= uffer) (kill-buffer temp-buffer)))) (nil let ((temp-buffer (generate-new-bu= ffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-pro= tect (progn (org-mode) (progn ... ...) (org-babel-execute-src-block) (buffe= r-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (ni= l list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n|= 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :exports results :co= lnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Auth= or |\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 :va= r data=3Dinput-table :exports results :colnames '(Rev Author)\necho \"$data= \"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n| 1 | ba= r |\n| 2 | baz |\n\n" (let ... ...)))) (let ((value-804 (quote ert-= form-evaluation-aborted-805))) (let (form-description-806) (if (unwind-prot= ect ... ... ...) nil (ert-fail form-description-806))) value-804)) (t (lamb= da nil (let ((fn-802 ...) (args-803 ...)) (let (...) (let ... ...) value-80= 4)))) (t byte-code "\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3= 17D\316\nD\320FE\321\211\322\211=1C=1E=1E\nJ\323H=1F>\2046\324\325\326\327#= \210\nJ\330H\323H >\204H\324\325\331\332#\210\nJ\323H=1F>\204X\324\325\326\= 327#\210\nJ\330H\333H \210.\n\334 \207" [temp-buffer wconfig --cl-info-- er= t--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-b= uffer] 2)) current-window-configuration ((set-window-configuration wconfig)= ) lambda (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\3= 02J \"\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--tes= t-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error debugge= r cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) (t er= t--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=1C\313L\210)\323\216\324\325\326\327\330D\327\nD= \327=0BD\327D\331\257E\332=0EB=1D=1E=1F\333=0BJ!\210.\313\207" [--cl-begi= n-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-for= m-accu--" vector cl-struct-ert--test-execution-info cl-struct-ert-test-abor= ted-with-non-local-exit #[nil "\300\301\302\"\207" [throw --cl-block-error-= - nil] 3] ((byte-code "J\306H >\204=00\307\310\311\312#\210J\313H\211\306= H=0B>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 \21= 0=16\211=17=16J\237L\210)\n\306H=0B>\204Q\307\310\322\315#\210\n\211=18\313= =16JI\210)=14\306H=19>\204l\307\310\323\324#\210=14\211=1A\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-messag= e-log-buffer-truncation ert-test-result-should-forms ert-test-most-recent-r= esult 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-descri= ption) "\211\nJBL)\207" [G77602 v form-description] 4] --cl-rest-- t ert-= -run-test-internal v ert--running-tests message-log-max ert--should-executi= on-observer] 9) (t ert-run-test [cl-struct-ert-test test-ob/specific-colnam= es "Test passing specific column names." (lambda nil (let (... ...) (let ..= . ... value-804))) nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-er= t--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 (tes= t-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 127= 000 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-t= est test-ob/specific-colnames "Test passing specific column names." (lambda= nil (let (... ...) (let ... ... value-804))) nil :passed nil] (lambda (&re= st --cl-rest--) (apply (quote #[... "\306\307\"\2032 \211G\310U\203=00\n@\= 202=00\311\312\313\nGD\"\f\211\314=0B.J/J#L\210)\315\fJ!*\207\306\316\"\20= 3\224 \2110G\317U\203M=0E0\211A0@\202U\311\312\3130GD\"=0E0@12J\3201\204h\3= 21\202i\322\323=0B!\324=0B!\325=0B!3\3263!\203\321\202\204\327\3303\")%\21= 0\331r\fJq\2104)=0B\"+\207\306\332\"\203=01 \2115G\317U\203\257=0E5\211A5@= \202\267\311\312\3135GD\"=0E5@6r\fJq\21047\333=0B6\"8\33478\"\211=1E\204\33= 7\311\335\336C\"\210=1E\317H\2119\337H:>\204\364\340\341\342\343#\2109\211;= \3106I\210*<8\344\313\345\"I\210\3467=0B\"\210\3477=1E\".=07\207\306\350\"= \203\301 \211=3DG\351U\2033=0E=3D\211A=3D@\202;\311\312\313=3DGD\"=0E=3D\21= 1A=3D@6=3D@>r\fJq\21047\333=0B6\"8\33478\"\211=1E\317H\2119\337H:>\204v\340= \341\352\343#\2109\317H)\203\242=0E\317H\2119\337H:>\204\223\340\341\352\34= 3#\2109\211?\317\3536>\"I\210*<8\344>\3536>\"\"I\210\3467=0B\"\210\3477=1E\= ".\207\340\354\355#\205\312\313\207" [event-type event-args --cl-rest-- s= tats G77608 v eql run-started 1 signal wrong-number-of-arguments nil ert--s= etup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results w= ere as expected%s" "" "Aborted: " ert-stats-total ert-stats-completed-expec= ted ert-stats-completed-unexpected zerop format ", %s unexpected" ert--resu= lts-update-stats-display test-started ert--stats-test-pos ewoc-nth cl-asser= tion-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-may= be ewoc-invalidate test-ended 3 ert--ewoc-entry-hidden-p ert-test-result-ex= pected-p "cl-ecase failed: %s, %s" ... G77607 G77609 --cl-rest-- abortedp .= ..] 9]) (quote --message-fn--) (quote --listener--) (quote --buffer--) (quo= te --output-buffer-name--) --cl-rest--))) (t ert-results-rerun-test-at-poin= t) (t ert-results-rerun-test-at-point-debugging-errors) (t call-interactive= ly 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-arg= s 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))) (setca= r c merged-params)) i)) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (s= etcar c merged-params)) i)) (progn (let* ((params (if params (org-babel-pro= cess-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (asso= c :cache params)) (string=3D "yes" (cdr ...)))) (new-hash (if cachep (progn= (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-curre= nt-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 ...) (d= efault-directory ...) (org-babel-call-process-region-original ...) (indent = ...) result cmd) (unwind-protect (let ... ... ... ...) (setq call-process-r= egion ...)))))))) (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-p= arams)) i)) (progn (let* ((params (if params (org-babel-process-params merg= ed-params) (nth 2 info))) (cachep (and (not arg) (cdr ...) (string=3D "yes"= ...))) (new-hash (if cachep (progn ...))) (old-hash (if cachep (progn ...)= )) (cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (c= ond (cache-current-p (save-excursion (goto-char ...) (end-of-line 1) (forwa= rd-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=3Dinpu= t-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=3Dinput-table :exports results :colnames '(Rev Author)\necho \"$d= ata\"\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=3Dinput-table :expo= rts results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-ch= ar (point-min))) (org-babel-execute-src-block) (buffer-string)) (and (buffe= r-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 | b= az |\n\n#+begin_src sh :var data=3Dinput-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) (k= ill-buffer temp-buffer))))) (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n= | 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :exports results :c= olnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Aut= hor |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let ((tem= p-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer= temp-buffer) (unwind-protect (progn (org-mode) (progn (insert "#+name: inp= ut-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+b= egin_src sh :var data=3Dinput-table :exports results :colnames '(Rev Author= )\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) (org-babel-execut= e-src-block) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer t= emp-buffer)))))) (let ((fn-802 (function equal)) (args-803 (list "#+name: input-table\n| i= d | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh := var data=3Dinput-table :exports results :colnames '(Rev Author)\necho \"$da= ta\"\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 (pr= ogn ... ... ... ...) (and ... ...))))))) (let ((value-804 (quote ert-form-e= valuation-aborted-805))) (let (form-description-806) (if (unwind-protect (s= etq value-804 (apply fn-802 args-803)) (setq form-description-806 (nconc (l= ist ...) (list :form ...) (if ... nil ...) (let ... ...))) (ert--signal-sho= uld-execution form-description-806)) nil (ert-fail form-description-806))) = value-804)) (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: inpu= t-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+be= gin_src sh :var data=3Dinput-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-descriptio= n-806) (if (unwind-protect (setq value-804 (apply fn-802 args-803)) (setq f= orm-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=1C=1E=1E\nJ\323H=1F>\2046\324\325\326\327#\210\nJ= \330H\323H >\204H\324\325\331\332#\210\nJ\323H=1F>\204X\324\325\326\327#\21= 0\nJ\330H\333H \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--info= s debug-ignored-errors debug-on-quit generate-new-buffer " *temp*" ((byte-c= ode "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] = 2)) current-window-configuration ((set-window-configuration wconfig)) lambd= a (&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-execu= tion-info 1 ert-test-body ert-test 3 ert-pass debug-on-error debugger cl-st= ruct-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." (lamb= da 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=3Dinput-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 (quo= te ert-form-evaluation-aborted-805))) (let (form-description-806) (if (unwi= nd-protect ... ... ...) nil (ert-fail form-description-806))) value-804))) = nil :passed nil] [cl-struct-ert-test-failed nil nil (wrong-type-argument co= nsp nil) ((t setcar nil ((:comments . "") (:shebang . "") (:cache . "") (:p= adline . "") (: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)) (ni= l if (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c merged= -params)) i)) (progn (let* ((params ...) (cachep ...) (new-hash ...) (old-h= ash ...) (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-babe= l-check-evaluate (let (...) (let* ... ...) i)) (progn (let* (... ... ... ..= . ...) (cond ... ...))))) (t org-babel-execute-src-block) (nil progn (org-m= ode) (progn (insert "#+name: input-table\n| id | var1 |\n|----+------|\n| = 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :export= s results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-char= (point-min))) (org-babel-execute-src-block) (buffer-string)) (nil unwind-p= rotect (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= =3Dinput-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 sa= ve-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=3Dinput-table :exports r= esults :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-char ..= .)) (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-b= uffer) (kill-buffer temp-buffer)))) (nil let ((temp-buffer (generate-new-bu= ffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-pro= tect (progn (org-mode) (progn ... ...) (org-babel-execute-src-block) (buffe= r-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (ni= l list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n|= 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :exports results :co= lnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Auth= or |\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 :va= r data=3Dinput-table :exports results :colnames '(Rev Author)\necho \"$data= \"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n| 1 | ba= r |\n| 2 | baz |\n\n" (let ... ...)))) (let ((value-804 (quote ert-= form-evaluation-aborted-805))) (let (form-description-806) (if (unwind-prot= ect ... ... ...) nil (ert-fail form-description-806))) value-804)) (t (lamb= da nil (let ((fn-802 ...) (args-803 ...)) (let (...) (let ... ...) value-80= 4)))) (t byte-code "\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3= 17D\316\nD\320FE\321\211\322\211=1C=1E=1E\nJ\323H=1F>\2046\324\325\326\327#= \210\nJ\330H\323H >\204H\324\325\331\332#\210\nJ\323H=1F>\204X\324\325\326\= 327#\210\nJ\330H\333H \210.\n\334 \207" [temp-buffer wconfig --cl-info-- er= t--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-b= uffer] 2)) current-window-configuration ((set-window-configuration wconfig)= ) lambda (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\3= 02J \"\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--tes= t-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error debugge= r cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) (t er= t--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=1C\313L\210)\323\216\324\325\326\327\330D\327\nD= \327=0BD\327D\331\257E\332=0EB=1D=1E=1F\333=0BJ!\210.\313\207" [--cl-begi= n-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-for= m-accu--" vector cl-struct-ert--test-execution-info cl-struct-ert-test-abor= ted-with-non-local-exit #[nil "\300\301\302\"\207" [throw --cl-block-error-= - nil] 3] ((byte-code "J\306H >\204=00\307\310\311\312#\210J\313H\211\306= H=0B>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 \21= 0=16\211=17=16J\237L\210)\n\306H=0B>\204Q\307\310\322\315#\210\n\211=18\313= =16JI\210)=14\306H=19>\204l\307\310\323\324#\210=14\211=1A\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-messag= e-log-buffer-truncation ert-test-result-should-forms ert-test-most-recent-r= esult 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-descri= ption) "\211\nJBL)\207" [G77602 v form-description] 4] --cl-rest-- t ert-= -run-test-internal v ert--running-tests message-log-max ert--should-executi= on-observer] 9) (t ert-run-test [cl-struct-ert-test test-ob/specific-colnam= es "Test passing specific column names." (lambda nil (let (... ...) (let ..= . ... value-804))) nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-er= t--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 (tes= t-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 127= 000 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-t= est test-ob/specific-colnames "Test passing specific column names." (lambda= nil (let (... ...) (let ... ... value-804))) nil :passed nil] (lambda (&re= st --cl-rest--) (apply (quote #[... "\306\307\"\2032 \211G\310U\203=00\n@\= 202=00\311\312\313\nGD\"\f\211\314=0B.J/J#L\210)\315\fJ!*\207\306\316\"\20= 3\224 \2110G\317U\203M=0E0\211A0@\202U\311\312\3130GD\"=0E0@12J\3201\204h\3= 21\202i\322\323=0B!\324=0B!\325=0B!3\3263!\203\321\202\204\327\3303\")%\21= 0\331r\fJq\2104)=0B\"+\207\306\332\"\203=01 \2115G\317U\203\257=0E5\211A5@= \202\267\311\312\3135GD\"=0E5@6r\fJq\21047\333=0B6\"8\33478\"\211=1E\204\33= 7\311\335\336C\"\210=1E\317H\2119\337H:>\204\364\340\341\342\343#\2109\211;= \3106I\210*<8\344\313\345\"I\210\3467=0B\"\210\3477=1E\".=07\207\306\350\"= \203\301 \211=3DG\351U\2033=0E=3D\211A=3D@\202;\311\312\313=3DGD\"=0E=3D\21= 1A=3D@6=3D@>r\fJq\21047\333=0B6\"8\33478\"\211=1E\317H\2119\337H:>\204v\340= \341\352\343#\2109\317H)\203\242=0E\317H\2119\337H:>\204\223\340\341\352\34= 3#\2109\211?\317\3536>\"I\210*<8\344>\3536>\"\"I\210\3467=0B\"\210\3477=1E\= ".\207\340\354\355#\205\312\313\207" [event-type event-args --cl-rest-- s= tats G77608 v eql run-started 1 signal wrong-number-of-arguments nil ert--s= etup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results w= ere as expected%s" "" "Aborted: " ert-stats-total ert-stats-completed-expec= ted ert-stats-completed-unexpected zerop format ", %s unexpected" ert--resu= lts-update-stats-display test-started ert--stats-test-pos ewoc-nth cl-asser= tion-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-may= be ewoc-invalidate test-ended 3 ert--ewoc-entry-hidden-p ert-test-result-ex= pected-p "cl-ecase failed: %s, %s" ... G77607 G77609 --cl-rest-- abortedp .= ..] 9]) (quote --message-fn--) (quote --listener--) (quote --buffer--) (quo= te --output-buffer-name--) --cl-rest--))) (t ert-results-rerun-test-at-poin= t) (t ert-results-rerun-test-at-point-debugging-errors) (t call-interactive= ly 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= =1C\313L\210)\323\216\324\325\326\327\330D\327\nD\327=0BD\327D\331\257E\33= 2=0EB=1D=1E=1F\333=0BJ!\210.\313\207" [--cl-begin-marker-- v --cl-should-f= orm-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=00\307\310\311\312#\210J\313H\211\306H=0B>\204\"\307\310\314\31= 5#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 \210=16\211=17=16J\237L\210)\= n\306H=0B>\204Q\307\310\322\315#\210\n\211=18\313=16JI\210)=14\306H=19>\204= l\307\310\323\324#\210=14\211=1A\325\nI\210*\306\207" [--cl-info-- cl-struc= t-ert--test-execution-info-tags result cl-struct-ert-test-result-tags v --c= l-begin-marker-- 0 error "%s accessing a non-%s" ert--test-execution-info-r= esult ert--test-execution-info 2 ert-test-result-messages ert-test-result 1= get-buffer-create "*Messages*" ert--force-message-log-buffer-truncation er= t-test-result-should-forms ert-test-most-recent-result ert-test 4 --cl-shou= ld-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-8= 03 (list "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\= n| 2 | baz |\n\n#+begin_src sh :var data=3Dinput-table :exports results := colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Au= thor |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let (...= ) (save-current-buffer ... ...))))) (let ((value-804 (quote ert-form-evalua= tion-aborted-805))) (let (form-description-806) (if (unwind-protect (setq v= alue-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-stru= ct-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#+beg= in_src sh :var data=3Dinput-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 ...)) (l= et (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 (te= st-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 12= 7000 0)] 0 0 0 0 (20848 25504 96000 0) (20848 25504 127000 0) nil [cl-struc= t-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#+begi= n_src sh :var data=3Dinput-table :exports results :colnames '(Rev Author)\n= echo \"$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-80= 4))) nil :passed nil] 1366320037.899] [cl-struct-ert-test test-ob/specific-= colnames "Test passing specific column names." (lambda nil (let ((fn-802 (f= unction equal)) (args-803 (list "#+name: input-table\n| id | var1 |\n|----+= ------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src sh :var data=3Dinput-t= able :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-descripti= on-806))) value-804))) nil :passed nil] (lambda (&rest --cl-rest--) (apply = (quote #[(G77606 G77607 G77608 G77609 event-type &rest event-args) "\306\3= 07\"\2032 \211G\310U\203=00\n@\202=00\311\312\313\nGD\"\f\211\314=0B.J/J#L\= 210)\315\fJ!*\207\306\316\"\203\224 \2110G\317U\203M=0E0\211A0@\202U\311\3= 12\3130GD\"=0E0@12J\3201\204h\321\202i\322\323=0B!\324=0B!\325=0B!3\3263!\2= 03\321\202\204\327\3303\")%\210\331r\fJq\2104)=0B\"+\207\306\332\"\203=01= \2115G\317U\203\257=0E5\211A5@\202\267\311\312\3135GD\"=0E5@6r\fJq\21047\3= 33=0B6\"8\33478\"\211=1E\204\337\311\335\336C\"\210=1E\317H\2119\337H:>\204= \364\340\341\342\343#\2109\211;\3106I\210*<8\344\313\345\"I\210\3467=0B\"\2= 10\3477=1E\".=07\207\306\350\"\203\301 \211=3DG\351U\2033=0E=3D\211A=3D@\2= 02;\311\312\313=3DGD\"=0E=3D\211A=3D@6=3D@>r\fJq\21047\333=0B6\"8\33478\"\2= 11=1E\317H\2119\337H:>\204v\340\341\352\343#\2109\317H)\203\242=0E\317H\211= 9\337H:>\204\223\340\341\352\343#\2109\211?\317\3536>\"I\210*<8\344>\3536>\= "\"I\210\3467=0B\"\210\3477=1E\".\207\340\354\355#\205\312\313\207" [even= t-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 for= mat ", %s unexpected" ert--results-update-stats-display test-started ert--s= tats-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--r= esults-update-stats-display-maybe ewoc-invalidate test-ended 3 ert--ewoc-en= try-hidden-p ert-test-result-expected-p "cl-ecase failed: %s, %s" (run-star= ted run-ended test-started test-ended) G77607 G77609 --cl-rest-- abortedp .= ..] 9]) (quote --message-fn--) (quote --listener--) (quote --buffer--) (quo= te --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 n= il) --8<---------------cut here---------------end--------------->8--- Any idea? Best regards, Seb --=20 Sebastien Vauban