From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Schulte Subject: Re: [babel] Specified colnames Date: Sat, 20 Apr 2013 04:11:31 -0600 Message-ID: <878v4c7pwp.fsf@gmail.com> 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> <86sj2nv8de.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:51392) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UTh2M-0003d9-DU for emacs-orgmode@gnu.org; Sat, 20 Apr 2013 19:17:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UTh2I-0005T3-9E for emacs-orgmode@gnu.org; Sat, 20 Apr 2013 19:17:42 -0400 Received: from mail-pd0-f175.google.com ([209.85.192.175]:42321) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UTh2H-0005St-Sp for emacs-orgmode@gnu.org; Sat, 20 Apr 2013 19:17:38 -0400 Received: by mail-pd0-f175.google.com with SMTP id g10so2838644pdj.6 for ; Sat, 20 Apr 2013 16:17:37 -0700 (PDT) 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-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Sebastien Vauban Cc: emacs-orgmode@gnu.org "Sebastien Vauban" writes: > Eric, > > Eric Schulte wrote: >> "Sebastien Vauban" writes: >>> Eric Schulte wrote: >>>>> Extra question: tested with a sh block, both of the above do work, th= at 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=3Dinput-table :exports results :colnames '(Rev A= uthor) > 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 A= uthor) > 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-e= rt-test test-ob/specific-colnames "Test passing specific column names." (la= mbda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: input-tab= le\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_s= rc sh :var data=3Dinput-table :exports results :colnames '(Rev Author)\nech= o \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n|= 1 | bar |\n| 2 | baz |\n\n" (let ... ...)))) (let ((value-804 (q= uote ert-form-evaluation-aborted-805))) (let (form-description-806) (if (un= wind-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-che= ck-evaluate (let ((i info)) (let* ((c ...)) (setcar c merged-params)) i)) (= nil if (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c merg= ed-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-ba= bel-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=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)) (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= =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=1E\nJ\323H=1F>\2046\324\325\326\327#\210\n= J\330H\323H >\204H\324\325\331\332#\210\nJ\323H=1F>\204X\324\325\326\327#\2= 10\nJ\330H\333H \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--inf= os 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)) lamb= da (&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-exec= ution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error debugger cl-s= truct-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\327=0BD\= 327D\331\257E\332B=1E=1F\333=0BJ!\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--" vecto= r cl-struct-ert--test-execution-info cl-struct-ert-test-aborted-with-non-lo= cal-exit #[nil "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] ((byt= e-code "J\306H >\204\307\310\311\312#\210J\313H\211\306H=0B>\204\"\307\31= 0\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 \210\211=16J\237L\210= )\n\306H=0B>\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-exec= ution-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-crea= te "*Messages*" ert--force-message-log-buffer-truncation ert-test-result-sh= ould-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-d= escription] 4] --cl-rest-- t ert--run-test-internal v ert--running-tests me= ssage-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 er= t-run-or-rerun-test [cl-struct-ert--stats "specific-colnames" [[cl-struct-e= rt-test test-ob/specific-colnames "Test passing specific column names." (la= mbda 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 2= 5509 799000 0)] [(20848 25504 127000 0)] 0 0 0 0 (20848 25504 96000 0) (208= 48 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 passin= g 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=0B.J/J#L\210)= \315\fJ!*\207\306\316\"\203\224 \2110G\317U\203M0\211A0@\202U\311\312\3130= GD\"0@12J\3201\204h\321\202i\322\323=0B!\324=0B!\325=0B!3\3263!\203\321\20= 2\204\327\3303\")%\210\331r\fJq\2104)=0B\"+\207\306\332\"\203 \2115G\317U\= 203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\333=0B6\"8\33478\"\2= 11\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\210= 9\211;\3106I\210*<8\344\313\345\"I\210\3467=0B\"\210\3477\".=07\207\306\35= 0\"\203\301 \211=3DG\351U\2033=3D\211A=3D@\202;\311\312\313=3DGD\"=3D\211A= =3D@6=3D@>r\fJq\21047\333=0B6\"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=0B\"\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-result= s-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expe= cted%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-sta= ts-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-inv= alidate test-ended 3 ert--ewoc-entry-hidden-p ert-test-result-expected-p "c= l-ecase failed: %s, %s" ... G77607 G77609 --cl-rest-- abortedp ...] 9]) (qu= ote --message-fn--) (quote --listener--) (quote --buffer--) (quote --output= -buffer-name--) --cl-rest--))) (t ert-results-rerun-test-at-point) (t ert-r= esults-rerun-test-at-point-debugging-errors) (t call-interactively ert-resu= lts-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-argum= ent consp nil))) > #[(G77601 &rest debugger-args) "\302J \"\207" [G77601 debugger-args er= t--run-test-debugger] 3](--info-- error (wrong-type-argument consp nil)) > apply(#[(G77601 &rest debugger-args) "\302J \"\207" [G77601 debugger-a= rgs ert--run-test-debugger] 3] --info-- (error (wrong-type-argument consp n= il))) > (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))) (set= car 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-p= rocess-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (as= soc :cache params)) (string=3D "yes" (cdr ...)))) (new-hash (if cachep (pro= gn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-cur= rent-result-hash)))) (cache-current-p (and (not arg) new-hash (equal new-ha= sh old-hash)))) (cond (cache-current-p (save-excursion (goto-char (org-babe= l-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 1) (le= t (...) (message ...) result))) ((org-babel-confirm-evaluate (let (...) (le= t* ... ...) i)) (let* ((lang ...) (result-params ...) (body ...) (dir ...) = (default-directory ...) (org-babel-call-process-region-original ...) (inden= t ...) 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-bab= el-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c merged= -params)) i)) (progn (let* ((params (if params (org-babel-process-params me= rged-params) (nth 2 info))) (cachep (and (not arg) (cdr ...) (string=3D "ye= s" ...))) (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) (for= ward-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=3Din= put-table :exports results :colnames '(Rev Author)\necho \"$data\"\n#+end_s= rc\n") (goto-char (point-min))) (org-babel-execute-src-block) (buffer-strin= g)) > (unwind-protect (progn (org-mode) (progn (insert "#+name: input-table\n= | id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_src s= h :var data=3Dinput-table :exports results :colnames '(Rev Author)\necho \"= $data\"\n#+end_src\n") (goto-char (point-min))) (org-babel-execute-src-bloc= k) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer= ))) > (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (o= rg-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 :ex= ports results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-= char (point-min))) (org-babel-execute-src-block) (buffer-string)) (and (buf= fer-name temp-buffer) (kill-buffer temp-buffer)))) > (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buff= er (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn (inser= t "#+name: input-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 |= baz |\n\n#+begin_src sh :var data=3Dinput-table :exports results :colname= s '(Rev Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) (or= g-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=3Dinput-table :exports results = :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | A= uthor |\n|-----+--------|\n| 1 | bar |\n| 2 | baz |\n\n" (let ((t= emp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buff= er temp-buffer) (unwind-protect (progn (org-mode) (progn (insert "#+name: i= nput-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#= +begin_src sh :var data=3Dinput-table :exports results :colnames '(Rev Auth= or)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) (org-babel-exec= ute-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=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 (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-s= hould-execution form-description-806)) nil (ert-fail form-description-806))= ) value-804)) > (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: in= put-table\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+= begin_src sh :var data=3Dinput-table :exports results :colnames '(Rev Autho= r)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+-----= ---|\n| 1 | bar |\n| 2 | baz |\n\n" (let ((temp-buffer ...)) (sav= e-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))))) (le= t ((value-804 (quote ert-form-evaluation-aborted-805))) (let (form-descript= ion-806) (if (unwind-protect (setq value-804 (apply fn-802 args-803)) (setq= form-description-806 (nconc ... ... ... ...)) (ert--signal-should-executio= n 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\3= 16\nD\320FE\321\211\322\211=1E\nJ\323H=1F>\2046\324\325\326\327#\210\nJ\330= H\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-- ert--infos de= bug-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 erro= r "%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-e= rt-test test-ob/specific-colnames "Test passing specific column names." (la= mbda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: input-tab= le\n| id | var1 |\n|----+------|\n| 1 | bar |\n| 2 | baz |\n\n#+begin_s= rc sh :var data=3Dinput-table :exports results :colnames '(Rev Author)\nech= o \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n|= 1 | bar |\n| 2 | baz |\n\n" (let ... ...)))) (let ((value-804 (q= uote ert-form-evaluation-aborted-805))) (let (form-description-806) (if (un= wind-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-che= ck-evaluate (let ((i info)) (let* ((c ...)) (setcar c merged-params)) i)) (= nil if (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c merg= ed-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-ba= bel-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=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)) (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= =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=1E\nJ\323H=1F>\2046\324\325\326\327#\210\n= J\330H\323H >\204H\324\325\331\332#\210\nJ\323H=1F>\204X\324\325\326\327#\2= 10\nJ\330H\333H \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--inf= os 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)) lamb= da (&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-exec= ution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error debugger cl-s= truct-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\327=0BD\= 327D\331\257E\332B=1E=1F\333=0BJ!\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--" vecto= r cl-struct-ert--test-execution-info cl-struct-ert-test-aborted-with-non-lo= cal-exit #[nil "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] ((byt= e-code "J\306H >\204\307\310\311\312#\210J\313H\211\306H=0B>\204\"\307\31= 0\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321 \210\211=16J\237L\210= )\n\306H=0B>\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-exec= ution-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-crea= te "*Messages*" ert--force-message-log-buffer-truncation ert-test-result-sh= ould-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-d= escription] 4] --cl-rest-- t ert--run-test-internal v ert--running-tests me= ssage-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 er= t-run-or-rerun-test [cl-struct-ert--stats "specific-colnames" [[cl-struct-e= rt-test test-ob/specific-colnames "Test passing specific column names." (la= mbda 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 2= 5509 799000 0)] [(20848 25504 127000 0)] 0 0 0 0 (20848 25504 96000 0) (208= 48 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 passin= g 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=0B.J/J#L\210)= \315\fJ!*\207\306\316\"\203\224 \2110G\317U\203M0\211A0@\202U\311\312\3130= GD\"0@12J\3201\204h\321\202i\322\323=0B!\324=0B!\325=0B!3\3263!\203\321\20= 2\204\327\3303\")%\210\331r\fJq\2104)=0B\"+\207\306\332\"\203 \2115G\317U\= 203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\333=0B6\"8\33478\"\2= 11\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\210= 9\211;\3106I\210*<8\344\313\345\"I\210\3467=0B\"\210\3477\".=07\207\306\35= 0\"\203\301 \211=3DG\351U\2033=3D\211A=3D@\202;\311\312\313=3DGD\"=3D\211A= =3D@6=3D@>r\fJq\21047\333=0B6\"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=0B\"\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-result= s-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expe= cted%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-sta= ts-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-inv= alidate test-ended 3 ert--ewoc-entry-hidden-p ert-test-result-expected-p "c= l-ecase failed: %s, %s" ... G77607 G77609 --cl-rest-- abortedp ...] 9]) (qu= ote --message-fn--) (quote --listener--) (quote --buffer--) (quote --output= -buffer-name--) --cl-rest--))) (t ert-results-rerun-test-at-point) (t ert-r= esults-rerun-test-at-point-debugging-errors) (t call-interactively ert-resu= lts-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\21= 6\306\315!\306\316!\211\211\317\320\317\321\313\211#\322\313\211&L\210)\n\2= 11\313L\210)\323\216\324\325\326\327\330D\327\nD\327=0BD\327D\331\257E\332= B=1E=1F\333=0BJ!\210.\313\207" [--cl-begin-marker-- v --cl-should-form-acc= u-- --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--t= est-execution-info cl-struct-ert-test-aborted-with-non-local-exit #[nil "\3= 00\301\302\"\207" [throw --cl-block-error-- nil] 3] ((byte-code "J\306H >\= 204\307\310\311\312#\210J\313H\211\306H=0B>\204\"\307\310\314\315#\210\n\2= 11\316r\317\320!q\210Jd{)I\210)\321 \210\211=16J\237L\210)\n\306H=0B>\204Q\= 307\310\322\315#\210\n\211\313JI\210)\306H>\204l\307\310\323\324#\210\211\3= 25\nI\210*\306\207" [--cl-info-- cl-struct-ert--test-execution-info-tags re= sult cl-struct-ert-test-result-tags v --cl-begin-marker-- 0 error "%s acces= sing a non-%s" ert--test-execution-info-result ert--test-execution-info 2 e= rt-test-result-messages ert-test-result 1 get-buffer-create "*Messages*" er= t--force-message-log-buffer-truncation ert-test-result-should-forms ert-tes= t-most-recent-result ert-test 4 --cl-should-form-accu-- v v cl-struct-ert-t= est-tags v] 5)) lambda (&rest --cl-rest--) apply quote #[(G77602 G77603 G77= 604 form-description) "\211\nJBL)\207" [G77602 v form-description] 4] --c= l-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 passin= g 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=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 (.= ..) (save-current-buffer ... ...))))) (let ((value-804 (quote ert-form-eval= uation-aborted-805))) (let (form-description-806) (if (unwind-protect (setq= value-804 ...) (setq form-description-806 ...) (ert--signal-should-executi= on 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-st= ruct-ert-test test-ob/specific-colnames "Test passing specific column names= ." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+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\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-str= uct-ert-test test-ob/specific-colnames "Test passing specific column names.= " (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 ... ...)))) (let ((value-8= 04 (quote ert-form-evaluation-aborted-805))) (let (form-description-806) (i= f (unwind-protect ... ... ...) nil (ert-fail form-description-806))) value-= 804))) nil :passed nil] 1366320037.899] [cl-struct-ert-test test-ob/specifi= c-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=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 (...) (save-current-buffer ... ...))))) (let ((value-8= 04 (quote ert-form-evaluation-aborted-805))) (let (form-description-806) (i= f (unwind-protect (setq value-804 ...) (setq form-description-806 ...) (ert= --signal-should-execution form-description-806)) nil (ert-fail form-descrip= tion-806))) value-804))) nil :passed nil] (lambda (&rest --cl-rest--) (appl= y (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=0B.J/J#L\210)= \315\fJ!*\207\306\316\"\203\224 \2110G\317U\203M0\211A0@\202U\311\312\3130= GD\"0@12J\3201\204h\321\202i\322\323=0B!\324=0B!\325=0B!3\3263!\203\321\20= 2\204\327\3303\")%\210\331r\fJq\2104)=0B\"+\207\306\332\"\203 \2115G\317U\= 203\2575\211A5@\202\267\311\312\3135GD\"5@6r\fJq\21047\333=0B6\"8\33478\"\2= 11\204\337\311\335\336C\"\210\317H\2119\337H:>\204\364\340\341\342\343#\210= 9\211;\3106I\210*<8\344\313\345\"I\210\3467=0B\"\210\3477\".=07\207\306\35= 0\"\203\301 \211=3DG\351U\2033=3D\211A=3D@\202;\311\312\313=3DGD\"=3D\211A= =3D@6=3D@>r\fJq\21047\333=0B6\"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=0B\"\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-result= s-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expe= cted%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-sta= ts-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-inv= alidate test-ended 3 ert--ewoc-entry-hidden-p ert-test-result-expected-p "c= l-ecase failed: %s, %s" (run-started run-ended test-started test-ended) G77= 607 G77609 --cl-rest-- abortedp ...] 9]) (quote --message-fn--) (quote --li= stener--) (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 --=20 Eric Schulte http://cs.unm.edu/~eschulte