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

Re: [O] [babel] Specified colnames

From: Eric Schulte
Subject: Re: [O] [babel] Specified colnames
Date: Sat, 20 Apr 2013 04:11:31 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) 
"Sebastien Vauban" <address@hidden> writes:

> 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.
>

See the above, could you prepare this as a patch so that I can more
easily read/use/test it?

Thanks,

>
> I've fixed the "abortion" problem I had with the test...
>
> Updated version:
>
> --8<---------------cut here---------------start------------->8---
> (ert-deftest test-ob/specific-colnames ()
>   "Test passing specific column names."
>   (should
>    (equal "#+name: input-table
> | id | var1 |
> |----+------|
> |  1 | bar  |
> |  2 | baz  |
>
> #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
> echo \"$data\"
> #+end_src
>
> #+results:
> | Rev | Author |
> |-----+--------|
> |   1 | bar    |
> |   2 | baz    |
>
> "
>         (org-test-with-temp-text "#+name: input-table
> | id | var1 |
> |----+------|
> |  1 | bar  |
> |  2 | baz  |
>
> #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
> echo \"$data\"
> #+end_src
> "
>                                  (org-babel-execute-src-block)
>                                  (buffer-string)))))
> --8<---------------cut here---------------end--------------->8---
>
> Though, it generates an incomprehensible error (for me):
>
> --8<---------------cut here---------------start------------->8---
> Debugger entered--Lisp error: (wrong-type-argument consp nil)
>   apply(debug (error (wrong-type-argument consp nil)))
>   ert--run-test-debugger([cl-struct-ert--test-execution-info 
> [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column 
> names." (lambda nil (let ((fn-802 (function equal)) (args-803 (list "#+name: 
> input-table\n| id | var1 |\n|----+------|\n|  1 | bar  |\n|  2 | baz  
> |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev 
> Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author 
> |\n|-----+--------|\n|   1 | bar    |\n|   2 | baz    |\n\n" (let ... ...)))) 
> (let ((value-804 (quote ert-form-evaluation-aborted-805))) (let 
> (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail 
> form-description-806))) value-804))) nil :passed nil] 
> [cl-struct-ert-test-failed nil nil (wrong-type-argument consp nil) ((t setcar 
> nil ((:comments . "") (:shebang . "") (:cache . "") (:padline . "") (:noweb . 
> "") (:tangle . "") (:exports . "") (:results . ""))) (nil let* ((c (nthcdr 2 
> i))) (setcar c merged-params)) (nil let ((i info)) (let* ((c (nthcdr 2 i))) 
> (setcar c merged-params)) i) (nil org-babel-check-evaluate (let ((i info)) 
> (let* ((c ...)) (setcar c merged-params)) i)) (nil if 
> (org-babel-check-evaluate (let ((i info)) (let* (...) (setcar c 
> merged-params)) i)) (progn (let* ((params ...) (cachep ...) (new-hash ...) 
> (old-hash ...) (cache-current-p ...)) (cond (cache-current-p ...) (... 
> ...))))) (nil let* ((info (if info (copy-tree info) 
> (org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth 
> 2 info) params))) (if (org-babel-check-evaluate (let (...) (let* ... ...) i)) 
> (progn (let* (... ... ... ... ...) (cond ... ...))))) (t 
> org-babel-execute-src-block) (nil progn (org-mode) (progn (insert "#+name: 
> input-table\n| id | var1 |\n|----+------|\n|  1 | bar  |\n|  2 | baz  
> |\n\n#+begin_src sh :var data=input-table :exports results :colnames '(Rev 
> Author)\necho \"$data\"\n#+end_src\n") (goto-char (point-min))) 
> (org-babel-execute-src-block) (buffer-string)) (nil unwind-protect (progn 
> (org-mode) (progn (insert "#+name: input-table\n| id | var1 
> |\n|----+------|\n|  1 | bar  |\n|  2 | baz  |\n\n#+begin_src sh :var 
> data=input-table :exports results :colnames '(Rev Author)\necho 
> \"$data\"\n#+end_src\n") (goto-char (point-min))) 
> (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) 
> (kill-buffer temp-buffer))) (nil save-current-buffer (set-buffer temp-buffer) 
> (unwind-protect (progn (org-mode) (progn (insert "#+name: input-table\n| id | 
> var1 |\n|----+------|\n|  1 | bar  |\n|  2 | baz  |\n\n#+begin_src sh :var 
> data=input-table :exports results :colnames '(Rev Author)\necho 
> \"$data\"\n#+end_src\n") (goto-char ...)) (org-babel-execute-src-block) 
> (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) 
> (nil let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
> (set-buffer temp-buffer) (unwind-protect (progn (org-mode) (progn ... ...) 
> (org-babel-execute-src-block) (buffer-string)) (and (buffer-name temp-buffer) 
> (kill-buffer temp-buffer))))) (nil list "#+name: input-table\n| id | var1 
> |\n|----+------|\n|  1 | bar  |\n|  2 | baz  |\n\n#+begin_src sh :var 
> data=input-table :exports results :colnames '(Rev Author)\necho 
> \"$data\"\n#+end_src\n\n#+results:\n| Rev | Author |\n|-----+--------|\n|   1 
> | bar    |\n|   2 | baz    |\n\n" (let ((temp-buffer (generate-new-buffer " 
> *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect 
> (progn ... ... ... ...) (and ... ...))))) (nil let ((fn-802 (function equal)) 
> (args-803 (list "#+name: input-table\n| id | var1 |\n|----+------|\n|  1 | 
> bar  |\n|  2 | baz  |\n\n#+begin_src sh :var data=input-table :exports 
> results :colnames '(Rev Author)\necho \"$data\"\n#+end_src\n\n#+results:\n| 
> Rev | Author |\n|-----+--------|\n|   1 | bar    |\n|   2 | baz    |\n\n" 
> (let ... ...)))) (let ((value-804 (quote ert-form-evaluation-aborted-805))) 
> (let (form-description-806) (if (unwind-protect ... ... ...) nil (ert-fail 
> form-description-806))) value-804)) (t (lambda nil (let ((fn-802 ...) 
> (args-803 ...)) (let (...) (let ... ...) value-804)))) (t byte-code 
> "\306\307!rq\210\310\216\311 
> \312\216\313\314\315\316\317D\316\nD\320FE\321\211\322\211\nJ\323H>\2046\324\325\326\327#\210\nJ\330H\323H
>  >\204H\324\325\331\332#\210\nJ\323H>\204X\324\325\326\327#\210\nJ\330H\333H 
> \210.\n\334 \207" [temp-buffer wconfig --cl-info-- ert--infos 
> debug-ignored-errors debug-on-quit generate-new-buffer " *temp*" ((byte-code 
> "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) 
> current-window-configuration ((set-window-configuration wconfig)) lambda 
> (&rest --cl-rest--) apply quote #[(G77601 &rest debugger-args) "\302J  
> \"\207" [G77601 debugger-args ert--run-test-debugger] 3] --cl-rest-- t nil 0 
> error "%s accessing a non-%s" ert--test-execution-info-test 
> ert--test-execution-info 1 ert-test-body ert-test 3 ert-pass debug-on-error 
> debugger cl-struct-ert--test-execution-info-tags cl-struct-ert-test-tags] 6) 
> (t ert--run-test-internal #0) (t byte-code 
> "\306\307!\211\211r\310\311!q\210\312 
> d\313\223)L\210)\314\216\306\315!\306\316!\211\211\317\320\317\321\313\211#\322\313\211&L\210)\n\211\313L\210)\323\216\324\325\326\327\330D\327\nD\327D\327D\331\257E\332B\333J!\210.\313\207"
>  [--cl-begin-marker-- v --cl-should-form-accu-- --cl-info-- v ert-test 
> make-symbol "--begin-marker--" get-buffer-create "*Messages*" make-marker nil 
> ((byte-code "J\301\211\223\207" [--cl-begin-marker-- nil] 3)) "--info--" 
> "--should-form-accu--" vector cl-struct-ert--test-execution-info 
> cl-struct-ert-test-aborted-with-non-local-exit #[nil "\300\301\302\"\207" 
> [throw --cl-block-error-- nil] 3] ((byte-code "J\306H 
> >\204\307\310\311\312#\210J\313H\211\306H>\204\"\307\310\314\315#\210\n\211\316r\317\320!q\210Jd{)I\210)\321
>  
> \210\211J\237L\210)\n\306H>\204Q\307\310\322\315#\210\n\211\313JI\210)\306H>\204l\307\310\323\324#\210\211\325\nI\210*\306\207"
>  [--cl-info-- cl-struct-ert--test-execution-info-tags result 
> cl-struct-ert-test-result-tags v --cl-begin-marker-- 0 error "%s accessing a 
> non-%s" ert--test-execution-info-result ert--test-execution-info 2 
> ert-test-result-messages ert-test-result 1 get-buffer-create "*Messages*" 
> ert--force-message-log-buffer-truncation ert-test-result-should-forms 
> ert-test-most-recent-result ert-test 4 --cl-should-form-accu-- v v 
> cl-struct-ert-test-tags v] 5)) lambda (&rest --cl-rest--) apply quote 
> #[(G77602 G77603 G77604 form-description) "\211\nJBL)\207" [G77602 v 
> form-description] 4] --cl-rest-- t ert--run-test-internal v 
> ert--running-tests message-log-max ert--should-execution-observer] 9) (t 
> ert-run-test [cl-struct-ert-test test-ob/specific-colnames "Test passing 
> specific column names." (lambda nil (let (... ...) (let ... ... value-804))) 
> nil :passed nil]) (t ert-run-or-rerun-test [cl-struct-ert--stats 
> "specific-colnames" [[cl-struct-ert-test test-ob/specific-colnames "Test 
> passing specific column names." (lambda nil ...) nil :passed nil]] 
> #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8 data 
> (test-ob/specific-colnames 0)) [nil] [(20848 25509 799000 0)] [(20848 25504 
> 127000 0)] 0 0 0 0 (20848 25504 96000 0) (20848 25504 127000 0) nil 
> [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column 
> names." (lambda nil (let ... ...)) nil :passed nil] 1366320037.899] 
> [cl-struct-ert-test test-ob/specific-colnames "Test passing specific column 
> names." (lambda nil (let (... ...) (let ... ... value-804))) nil :passed nil] 
> (lambda (&rest --cl-rest--) (apply (quote #[... "\306\307\"\2032        
> 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

-- 
Eric Schulte
http://cs.unm.edu/~eschulte
reply via email to
[Prev in Thread] Current Thread [Next in Thread]