ob-C: do not swallow double quotes on raw output
* lisp/ob-C.el (org-babel-C-execute): Remove the erroneous call to `org-babel-read' when output is raw. * testing/examples/ob-C-test.org (Output), testing/lisp/test-ob-C.el (ob-C/ouput-doublequotes): Add a test with double quotes output. https://list.orgmode.org/orgmode/bc004962-679e-498f-b245-ae253aae6271@www.fastmail.com/
This commit is contained in:
parent
2e012db31a
commit
aa3eac143d
|
@ -185,7 +185,7 @@ or `org-babel-execute:C++' or `org-babel-execute:D'."
|
|||
(setq results (org-remove-indentation results))
|
||||
(org-babel-reassemble-table
|
||||
(org-babel-result-cond (cdr (assq :result-params params))
|
||||
(org-babel-read results t)
|
||||
results
|
||||
(let ((tmp-file (org-babel-temp-file "c-")))
|
||||
(with-temp-file tmp-file (insert results))
|
||||
(org-babel-import-elisp-from-file tmp-file)))
|
||||
|
|
|
@ -162,3 +162,15 @@ void main()
|
|||
writefln ("Friday %s", tinomogen_h(4,"day"));
|
||||
}
|
||||
#+end_src
|
||||
|
||||
* Output
|
||||
:PROPERTIES:
|
||||
:ID: 9386490b-4063-4400-842c-4a634edbedf5
|
||||
:END:
|
||||
|
||||
#+source: double_quotes
|
||||
#+begin_src cpp :includes <iostream> :results output verbatim raw
|
||||
std::cout << "\"line 1\"\n";
|
||||
std::cout << "\"line 2\"\n";
|
||||
std::cout << "\"line 3\"\n";
|
||||
#+end_src
|
||||
|
|
|
@ -183,5 +183,14 @@
|
|||
("Friday" "friday"))
|
||||
(org-babel-execute-src-block))))))
|
||||
|
||||
(ert-deftest ob-C/ouput-doublequotes ()
|
||||
"Double quotes not swallowed in raw output"
|
||||
(if (executable-find org-babel-C++-compiler)
|
||||
(org-test-at-id "9386490b-4063-4400-842c-4a634edbedf5"
|
||||
(org-babel-next-src-block 1)
|
||||
(should (equal
|
||||
"\"line 1\"\n\"line 2\"\n\"line 3\"\n"
|
||||
(org-babel-execute-src-block))))))
|
||||
|
||||
(provide 'test-ob-C)
|
||||
;;; test-ob-C.el ends here
|
||||
|
|
Loading…
Reference in New Issue