Add /chat to load test

1 files changed, 11 insertions, 3 deletions

diff --git a/test/dumpfm/load_test.clj b/test/dumpfm/load_test.clj
index 68eda68..fe56e62 100644
--- a/test/dumpfm/load_test.clj
+++ b/test/dumpfm/load_test.clj
@@ -20,7 +20,10 @@
 
 (def userlist-query "
 select u.nick, u.hash
-from users u, messages m where u.user_id = m.user_id
+from users u, messages m
+where u.user_id = m.user_id
+and u.user_id not in
+    (select user_id from mutes where (set_on + duration < now()))
 group by u.nick, u.hash 
 having count(*) > 50
 order by count(*) desc
@@ -53,6 +56,9 @@ limit 100
 		       :params params
 		       :method "GET")))
 
+(defn chat []
+  (do-request! "/test/chat"))
+
 (defn refresh []
   (let [params {:since (- (System/currentTimeMillis) 2000)
 		:room  "test"}]
@@ -69,10 +75,12 @@ limit 100
 		 :method "POST")))
 
 (def test-spec {:server        "http://localhost:8080"
-                :clients       100
-                :requests      10000
+                :clients       10
+                :requests      1000
+		:max-latency   1000
                 :setup-func    login-client
                 :funcs        [[55 refresh]
+			       [3  chat]
 			       [5  post-msg]]
                 :frequency 1
                 })