From d154eefc35ce4001aa6d1a6c11e9261228dd0cdc Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Wed, 16 Jun 2010 01:13:50 -0400 Subject: Update test scripts --- test/dumpfm/load_test.clj | 4 ++-- test/dumpfm/millstone.clj | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'test') diff --git a/test/dumpfm/load_test.clj b/test/dumpfm/load_test.clj index fe56e62..2410032 100644 --- a/test/dumpfm/load_test.clj +++ b/test/dumpfm/load_test.clj @@ -75,8 +75,8 @@ limit 100 :method "POST"))) (def test-spec {:server "http://localhost:8080" - :clients 10 - :requests 1000 + :clients 200 + :requests 10000 :max-latency 1000 :setup-func login-client :funcs [[55 refresh] diff --git a/test/dumpfm/millstone.clj b/test/dumpfm/millstone.clj index e13ebe3..d972a88 100644 --- a/test/dumpfm/millstone.clj +++ b/test/dumpfm/millstone.clj @@ -51,6 +51,8 @@ result {:path path :ms ms :error (if (success? resp) nil [(:code resp) (:msg resp)])}] + (if (= (rand-int 100) 1) + (log (format "%s - %.02fms" path ms))) (dosync (commute *results* conj result)) resp)) -- cgit v1.2.3-70-g09d2