branch: externals/pq
commit d8bca4bbd01a0cbf923da1989a81257ccdf5a814
Author: Andreas Seltenreich <seltenre...@gmx.de>
Commit: Andreas Seltenreich <seltenre...@gmx.de>
test: Add case that garbage-collects user-pointers.
---
test.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/test.el b/test.el
index 1c8f8561bb..766b2c5d71 100644
--- a/test.el
+++ b/test.el
@@ -28,5 +28,26 @@
(should (equal (pq:escapeLiteral conn "mo'oo\"oo") "'mo''oo\"oo'"))
(should (equal (pq:escapeIdentifier conn "moo'oo\"oo")
"\"moo'oo\"\"oo\""))))
+(ert-deftest pq-garbage-collect-test ()
+ (let ((conn (pq:connectdb *conninfo*)))
+ (garbage-collect)
+ (setq conn (pq:connectdb *conninfo*)
+ conn (pq:connectdb *conninfo*)
+ conn (pq:connectdb *conninfo*)
+ conn (pq:connectdb *conninfo*)
+ conn (pq:connectdb *conninfo*)
+ conn (pq:connectdb *conninfo*))
+ (should
+ (equal
+ (pq:query conn
+ "select count(1) > 5 from pg_stat_activity where
application_name = 'emacs'")
+ '(t)))
+ (garbage-collect)
+ (should
+ (equal
+ (pq:query conn
+ "select count(1) < 5 from pg_stat_activity where
application_name = 'emacs'")
+ '(t)))))
+
(ert-deftest pq-signal-error-test ()
(should-error (pq:connectdb "invalid-conninfo")))
