emacs-orgmode
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [babel] Specified colnames

From: Sebastien Vauban
Subject: Re: [O] [babel] Specified colnames
Date: Thu, 18 Apr 2013 23:25:49 +0200
User-agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3 (windows-nt) 
Eric,

Eric Schulte wrote:
> "Sebastien Vauban" <address@hidden> 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.

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       
address@hidden"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224   
address@hidden"address@hidden")%\210\331r\fJq\2104)\"+\207\306\332\"\203     
address@hidden"address@hidden"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
       
address@hidden;\311\312\313=GD\"address@hidden@>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       
address@hidden"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224   
address@hidden"address@hidden")%\210\331r\fJq\2104)\"+\207\306\332\"\203     
address@hidden"address@hidden"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
       
address@hidden;\311\312\313=GD\"address@hidden@>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        
address@hidden"\f\211\314.J/J#L\210)\315\fJ!*\207\306\316\"\203\224   
address@hidden"address@hidden")%\210\331r\fJq\2104)\"+\207\306\332\"\203     
address@hidden"address@hidden"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
       
address@hidden;\311\312\313=GD\"address@hidden@>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

-- 
Sebastien Vauban
reply via email to
[Prev in Thread] Current Thread [Next in Thread]