forked from mirrors/org-mode
fix a bug in new ob-awk code
thank you test suite * lisp/ob-awk.el (org-babel-execute:awk): Don't need to apply the append, just need to append. * testing/lisp/test-ob-awk.el (ob-awk/input-src-block-1): Renamed to avoid name duplication and over-definition. (ob-awk/input-src-block-2): Renamed to avoid name duplication and over-definition.
This commit is contained in:
parent
7469454f54
commit
6fb033c791
|
@ -66,7 +66,7 @@ called by `org-babel-execute-src-block'"
|
||||||
(insert (org-babel-awk-var-to-awk res)))
|
(insert (org-babel-awk-var-to-awk res)))
|
||||||
tmp))))
|
tmp))))
|
||||||
(cmd (mapconcat #'identity
|
(cmd (mapconcat #'identity
|
||||||
(apply #'append
|
(append
|
||||||
(list org-babel-awk-command
|
(list org-babel-awk-command
|
||||||
"-f" code-file cmd-line)
|
"-f" code-file cmd-line)
|
||||||
(mapcar (lambda (pair)
|
(mapcar (lambda (pair)
|
||||||
|
|
|
@ -29,13 +29,13 @@
|
||||||
(org-babel-next-src-block)
|
(org-babel-next-src-block)
|
||||||
(should (= 42 (org-babel-execute-src-block)))))
|
(should (= 42 (org-babel-execute-src-block)))))
|
||||||
|
|
||||||
(ert-deftest ob-awk/input-src-block ()
|
(ert-deftest ob-awk/input-src-block-1 ()
|
||||||
"Test a code block as an input"
|
"Test a code block as an input"
|
||||||
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
||||||
(org-babel-next-src-block 2)
|
(org-babel-next-src-block 2)
|
||||||
(should (= 43 (org-babel-execute-src-block)))))
|
(should (= 43 (org-babel-execute-src-block)))))
|
||||||
|
|
||||||
(ert-deftest ob-awk/input-src-block ()
|
(ert-deftest ob-awk/input-src-block-2 ()
|
||||||
"Test a code block as an input"
|
"Test a code block as an input"
|
||||||
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
(org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a"
|
||||||
(org-babel-next-src-block 3)
|
(org-babel-next-src-block 3)
|
||||||
|
|
Loading…
Reference in New Issue