[elpa] externals/pq d8bca4bbd0 33/63: test: Add case that garbage-collects user-pointers.

[ELPA Syncer]

branch: externals/pq
commit d8bca4bbd01a0cbf923da1989a81257ccdf5a814
Author: Andreas Seltenreich <seltenreich@gmx.de>
Commit: Andreas Seltenreich <seltenreich@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")))