From 31b8a27fbaa272a7990f452194912d229a3eede4 Mon Sep 17 00:00:00 2001 From: sostler Date: Sun, 15 Nov 2009 22:54:20 -0500 Subject: Checkin --- src/benchmark.clj | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/benchmark.clj') diff --git a/src/benchmark.clj b/src/benchmark.clj index 3adf843..d963b74 100755 --- a/src/benchmark.clj +++ b/src/benchmark.clj @@ -53,13 +53,15 @@ (struct message-struct nick msg (System/currentTimeMillis)))) (alter users assoc-in [nick :last-seen] (System/currentTimeMillis)) "OK"))) - + +(defn out [x] + "out") (defn do-bench [] (let [r (.nextDouble random)] - (cond (< r 0.8) (json-str (refresh)) - (< r 0.9) (json-str (add-user)) - (< r 1) (json-str (post-message))))) + (cond (< r 0.8) (out (refresh)) + (< r 0.9) (out (add-user)) + (< r 1) (out (post-message))))) (defn hello-world [] "hello world!") @@ -71,4 +73,4 @@ (add-user) (run-server {:port 8080} - "/*" (servlet benchmark)) \ No newline at end of file + "/*" (servlet benchmark)) \ No newline at end of file -- cgit v1.2.3-70-g09d2