diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-06-16 01:13:50 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-06-16 01:13:50 -0400 |
| commit | d154eefc35ce4001aa6d1a6c11e9261228dd0cdc (patch) | |
| tree | 393dbe21e65ad94792ba25ff3e7d834a9e59ee95 /test/dumpfm/millstone.clj | |
| parent | 6d1a8b2255a7bd52eb20f33ad312dfbdc0db38ee (diff) | |
Update test scripts
Diffstat (limited to 'test/dumpfm/millstone.clj')
| -rw-r--r-- | test/dumpfm/millstone.clj | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |