[nongnu] elpa/emacsql da9797e948 098/427: Add a system-level test.

[ELPA Syncer]

branch: elpa/emacsql
commit da9797e948d8a311970951252c712125f92b77b1
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@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