branch: elpa/emacsql
commit da9797e948d8a311970951252c712125f92b77b1
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>
Add a system-level test.
---
emacsql-tests.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/emacsql-tests.el b/emacsql-tests.el
index bf1741298a..f53cd679ca 100644
--- a/emacsql-tests.el
+++ b/emacsql-tests.el
@@ -69,6 +69,14 @@
(emacsql-tests-query [:select * :from people :where (in name $1)] '([FOO
BAR])
"SELECT * FROM people WHERE name IN ('FOO', 'BAR');"))
+(ert-deftest emacsql-system ()
+ (emacsql-with-connection (db nil)
+ (emacsql db [:create-table foo [x]])
+ (should-error (emacsql db [:create-table foo [x]]))
+ (emacsql db [:insert :into foo :values ([1] [2] [3])])
+ (should (equal (emacsql db [:select * :from foo])
+ '((1) (2) (3))))))
+
(provide 'emacsql-tests)
;;; emacsql-tests.el ends here
