Fix flaky test

This test wasn't properly waiting for the add emails to be sent.

src/clojars/email.clj

@@ -46,12 +46,14 @@
      (reset! email-latch (CountDownLatch. n))))
 
   (defn wait-for-mock-emails
-    "Blocks for up to 100ms waiting for `n` emails to be sent via the mock,
-  where `n` was passed to `expect-mock-emails` (defaulting to 1 if not called).
-  Returns true if `n` reached within that time. Reset with `expect-mock-emails`
-  between tests using the same system."
-    []
-    (.await @email-latch 100 TimeUnit/MILLISECONDS))
+    "Blocks for up to `wait-ms` (default: 100ms) waiting for `n` emails to be sent
+  via the mock, where `n` was passed to `expect-mock-emails` (defaulting to 1 if
+  not called). Returns true if `n` reached within that time. Reset with
+  `expect-mock-emails` between tests using the same system."
+    ([]
+     (wait-for-mock-emails 100))
+    ([wait-ms]
+     (.await @email-latch wait-ms TimeUnit/MILLISECONDS)))
 
   (defn mock-mailer []
     (expect-mock-emails)

test/clojars/integration/users_test.clj

@@ -357,6 +357,11 @@
       (register-as "dantheman" "[email protected]" "password")
       (visit "/groups/org.clojars.dantheman")
       (fill-in [:#username] "fixture")
+      ((fn [session]
+         ;; clear the add emails
+         (email/expect-mock-emails 2)
+         (email/wait-for-mock-emails 1000)
+         session))
       (press "Add Member")
       ((fn [session] (email/expect-mock-emails 2) session))
       (press "Remove Member"))