Support sleeping for fractions of seconds.

* sleep 1.5 * sleep 0.5 * sleep 1 * sleep
lefthandedgoat · Sep 6, 2013 · 9100c7d · 9100c7d
1 parent 3fada08
commit 9100c7d
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/basictests/Program.fs b/basictests/Program.fs
@@ -291,7 +291,7 @@ before (fun _ -> Console.WriteLine "only before set now")
 "ajax button should click after sleep" &&& (fun _ ->
     !^ testpage
     "#ajax_button_clicked" == "ajax button not clicked"
-    sleep 3
+    sleep 2.5
     click "#ajax_button"
     "#ajax_button_clicked" == "ajax button clicked")
 

diff --git a/canopy/canopy.fs b/canopy/canopy.fs
@@ -79,9 +79,11 @@ let js script = (browser :?> IJavaScriptExecutor).ExecuteScript(script)
 let private swallowedJs script = try js script |> ignore with | ex -> ()
 
 let sleep seconds =
-    match box seconds with
-    | :? int as i -> System.Threading.Thread.Sleep(i * 1000)
-    | _ -> System.Threading.Thread.Sleep(1 * 1000)
+    let ms = match box seconds with
+              | :? int as i -> i * 1000
+              | :? float as i -> Convert.ToInt32(i * 1000.0)
+              | _ -> 1000
+    System.Threading.Thread.Sleep(ms)
 
 let puts (text : string) = 
     reporter.write text

diff --git a/canopy/configuration.fs b/canopy/configuration.fs
@@ -10,7 +10,7 @@ let mutable phantomJSDir = @"c:\"
 let mutable elementTimeout = 10.0
 let mutable compareTimeout = 10.0
 let mutable pageTimeout = 10.0
-let mutable wipSleep = 1
+let mutable wipSleep = 1.0
 let mutable runFailedContextsFirst = false
 let mutable reporter : IReporter = new ConsoleReporter() :> IReporter
 let mutable disableSuggestOtherSelectors = false