add millis-now and sleep testutil-functions

src/clip_test/testutil.clj

@@ -28,6 +28,18 @@
   (.getMessage ^Throwable err))
 
 
+(defn millis-now
+  []
+  (System/currentTimeMillis))
+
+
+(defn sleep
+  [millis] {:pre [(number? millis)]}
+  (try (Thread/sleep millis)
+    (catch InterruptedException e
+      (.interrupt ^Thread (Thread/currentThread)))))
+
+
 (defn init!
   []
   (alter-var-root #'internal/try-catch (constantly try-catch))

src/clip_test/testutil_cljs.cljs

@@ -39,6 +39,17 @@
   (.-message err))
 
 
+(defn millis-now
+  []
+  (.getTime (js/Date.)))
+
+
+(defn sleep
+  [millis]
+  (let [start (millis-now)]
+    (while (< (- (millis-now) start) millis))))
+
+
 (defn init!
   []
   (set! internal/try-catch try-catch)

test/clip_test/core_test.clj

@@ -1,7 +1,7 @@
 (ns clip-test.core-test
   (:use [clip-test.testutil;*CLJSBUILD-REMOVE*;-cljs
          :only [;*CLJSBUILD-REMOVE*;RuntimeException
-                re-quote throw-msg]])
+                re-quote throw-msg millis-now sleep]])
   (:use;*CLJSBUILD-REMOVE*;-macros
     [clip-test.core;*CLJSBUILD-REMOVE*;-cljs
      :only [deftest testing is
@@ -54,8 +54,19 @@
     (is (throw-msg "Raising error") "throw-msg")))
 
 
+(deftest test-testutil
+  (testing "millis-now"
+    (is (pos? (millis-now)) "millis-now"))
+  (testing "sleep"
+    (let [start (millis-now)
+        _     (sleep 100)
+        stop  (millis-now)]
+    (is (>= (- stop start) 100) "sleep"))))
+
+
 (defn test-ns-hook
   []
   (test-success)
   (test-fail)
-  (test-error))
+  (test-error)
+  (test-testutil))