Make clear before write configuralbe #236

src/canopy/canopy.fs

@@ -317,7 +317,7 @@ let private writeToElement (e : IWebElement) (text:string) =
         let readonly = e.GetAttribute("readonly")
         if readonly = "true" then
             raise (CanopyReadOnlyException(sprintf "element %s is marked as read only, you can not write to read only elements" (e.ToString())))
-        try e.Clear() with ex -> ex |> ignore
+        if not optimizeByDisablingClearBeforeWrite then try e.Clear() with ex -> ex |> ignore
         e.SendKeys(text)
 
 let ( << ) item text = 

src/canopy/configuration.fs

@@ -32,6 +32,7 @@ let mutable configuredFinders = finders.defaultFinders
 let mutable writeToSelectWithOptionValue = true
 let mutable optimizeBySkippingIFrameCheck = false
 let mutable optimizeByDisablingCoverageReport = false
+let mutable optimizeByDisablingClearBeforeWrite = false
 let mutable showInfoDiv = true
 let mutable failureScreenshotsEnabled = true
 let mutable skipAllTestsOnFailure = false