TEST-TIMEOUT-MS : Make it clearer to have number type
Project: http://git-wip-us.apache.org/repos/asf/storm/repo Commit: http://git-wip-us.apache.org/repos/asf/storm/commit/786aacca Tree: http://git-wip-us.apache.org/repos/asf/storm/tree/786aacca Diff: http://git-wip-us.apache.org/repos/asf/storm/diff/786aacca Branch: refs/heads/security Commit: 786aacca25227dd97e2e473e3c5a09a66aa0fb8f Parents: 7a93dd6 Author: Jungtaek Lim <[email protected]> Authored: Sun Oct 5 02:04:35 2014 +0900 Committer: Jungtaek Lim <[email protected]> Committed: Sun Oct 5 02:04:35 2014 +0900 ---------------------------------------------------------------------- storm-core/src/clj/backtype/storm/testing.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/storm/blob/786aacca/storm-core/src/clj/backtype/storm/testing.clj ---------------------------------------------------------------------- diff --git a/storm-core/src/clj/backtype/storm/testing.clj b/storm-core/src/clj/backtype/storm/testing.clj index a144442..1ea1227 100644 --- a/storm-core/src/clj/backtype/storm/testing.clj +++ b/storm-core/src/clj/backtype/storm/testing.clj @@ -189,7 +189,7 @@ (def TEST-TIMEOUT-MS (let [timeout (System/getenv "STORM_TEST_TIMEOUT_MS")] - (read-string (if timeout timeout "5000")))) + (parse-int (if timeout timeout "5000")))) (defmacro while-timeout [timeout-ms condition & body] `(let [end-time# (+ (System/currentTimeMillis) ~timeout-ms)]
