[elpa] externals/pq 2c03e4aba4 42/63: Make garbage-collection test more robust.

[ELPA Syncer]

branch: externals/pq
commit 2c03e4aba47794591e65e51e3c4d1d614fc5d50f
Author: Andreas Seltenreich <seltenreich@gmx.de>
Commit: Andreas Seltenreich <seltenreich@gmx.de>

    Make garbage-collection test more robust.
---
 test.el | 29 +++++++++++++++++------------
 1 file changed, 17 insertions(+), 12 deletions(-)

diff --git a/test.el b/test.el
index 7b455f8b88..eea673faa6 100644
--- a/test.el
+++ b/test.el
@@ -38,24 +38,29 @@
 (ert-deftest pq-garbage-collect-test ()
   (let ((conn (pq:connectdb *conninfo*)))
     (garbage-collect)
+    (sleep-for 0.1)
     (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*)
          conn (pq:connectdb *conninfo*)
          conn (pq:connectdb *conninfo*))
-    (should
-     (>
-      (car (pq:query conn
-                       "select count(1) from pg_stat_activity where 
application_name = 'emacs'"))
-      6))
-    (sleep-for 0.1)
-    (garbage-collect)
-    (should
-     (<
-      (car (pq:query conn
-                       "select count(1) from pg_stat_activity where 
application_name = 'emacs'"))
-      6))))
+    (let ((connection-count
+          (car
+           (pq:query
+            conn
+            "select count(1) from pg_stat_activity where application_name = 
'emacs'"))))
+      (garbage-collect)
+      (sleep-for 0.1)
+      (should
+       (<
+       (car
+        (pq:query
+         conn
+         "select count(1) from pg_stat_activity where application_name = 
'emacs'"))
+       (- connection-count 6))))))
 
 (ert-deftest pq-signal-error-test ()
   (should-error (pq:connectdb "invalid-conninfo"))