ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
org-mode/testing/lisp/test-ob-sqlite.el

46 lines
1.6 KiB
EmacsLisp
Raw Normal View History

Fix table variable with commas in ob-sqlite * lisp/ob-sqlite.el (org-babel-sqlite-expand-vars): Stop interfering with the 'orgtbl-to-csv' default formatting. * testing/lisp/test-ob-sqlite.el: New file. The problem here was that ob-sqlite was providing a format to the `orgtbl-to-csv' that actually overwrote the default format in that function, and in the case where there were commas in the content of the table, broke the table as argument mechanism. TINYCHANGE
2017-09-05 17:17:22 -04:00
;;; test-ob-sqlite.el --- tests for ob-sqlite.el
Update copyright year
2019-01-01 05:50:56 -05:00
;; Copyright (C) 2017, 2019 Eduardo Bellani
Fix table variable with commas in ob-sqlite * lisp/ob-sqlite.el (org-babel-sqlite-expand-vars): Stop interfering with the 'orgtbl-to-csv' default formatting. * testing/lisp/test-ob-sqlite.el: New file. The problem here was that ob-sqlite was providing a format to the `orgtbl-to-csv' that actually overwrote the default format in that function, and in the case where there were commas in the content of the table, broke the table as argument mechanism. TINYCHANGE
2017-09-05 17:17:22 -04:00
;; Author: Eduardo Bellani <ebellani@gmail.com>
;; Keywords: lisp
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
Prefer HTTPS to HTTP for links to gnu.org
2021-03-20 03:27:57 -04:00
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
Fix table variable with commas in ob-sqlite * lisp/ob-sqlite.el (org-babel-sqlite-expand-vars): Stop interfering with the 'orgtbl-to-csv' default formatting. * testing/lisp/test-ob-sqlite.el: New file. The problem here was that ob-sqlite was providing a format to the `orgtbl-to-csv' that actually overwrote the default format in that function, and in the case where there were commas in the content of the table, broke the table as argument mechanism. TINYCHANGE
2017-09-05 17:17:22 -04:00
;;; Code:
Fix tests for sqlite - sqlite executable used by ob-sqlite is 'sqlite3' - require ob-sqlite for test
2018-09-09 08:27:20 -04:00
(org-test-for-executable "sqlite3")
Fix table variable with commas in ob-sqlite * lisp/ob-sqlite.el (org-babel-sqlite-expand-vars): Stop interfering with the 'orgtbl-to-csv' default formatting. * testing/lisp/test-ob-sqlite.el: New file. The problem here was that ob-sqlite was providing a format to the `orgtbl-to-csv' that actually overwrote the default format in that function, and in the case where there were commas in the content of the table, broke the table as argument mechanism. TINYCHANGE
2017-09-05 17:17:22 -04:00
(unless (featurep 'ob-sqlite)
(signal 'missing-test-dependency "Support for sqlite code blocks"))
(ert-deftest ob-sqlite/table-variables-with-commas ()
Fix typos
2019-11-12 08:44:05 -05:00
"Test of a table variable that contains commas. This guarantees that this code path results in a valid CSV."
Fix table variable with commas in ob-sqlite * lisp/ob-sqlite.el (org-babel-sqlite-expand-vars): Stop interfering with the 'orgtbl-to-csv' default formatting. * testing/lisp/test-ob-sqlite.el: New file. The problem here was that ob-sqlite was providing a format to the `orgtbl-to-csv' that actually overwrote the default format in that function, and in the case where there were commas in the content of the table, broke the table as argument mechanism. TINYCHANGE
2017-09-05 17:17:22 -04:00
(should
(equal '(("Mr Test A. Sql"
"Minister for Science, Eternal Happiness, and Finance"))
(org-test-with-temp-text
"#+name: test_table1
| \"Mr Test A. Sql\" | Minister for Science, Eternal Happiness, and Finance |
#+begin_src sqlite :db /tmp/test.db :var tb=test_table1
drop table if exists TestTable;
create table TestTable(person, job);
.mode csv TestTable
.import $tb TestTable
select * from TestTable;
#+end_src"
(org-babel-next-src-block)
(org-babel-execute-src-block)))))
;;; test-ob-sqlite.el ends here