diff options
Diffstat (limited to 'test/dumpfm/load_test.clj')
| -rw-r--r-- | test/dumpfm/load_test.clj | 14 |
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 }) |