Fix #315 add FirefoxWithProfileAndTimeSpan

lefthandedgoat · Dec 5, 2016 · 7239f24 · 7239f24
1 parent 4ec241c
commit 7239f24
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/src/canopy/canopy.fs b/src/canopy/canopy.fs
@@ -831,6 +831,10 @@ let start b =
           let options = new Firefox.FirefoxOptions()
           options.BrowserExecutableLocation <- path
           new FirefoxDriver(FirefoxDriverService.CreateDefaultService(), options, timespan) :> IWebDriver
+        | FirefoxWithProfileAndTimeSpan(profile, timespan) -> 
+          let options = new Firefox.FirefoxOptions()
+          options.Profile <- profile
+          new FirefoxDriver(FirefoxDriverService.CreateDefaultService(), options, timespan) :> IWebDriver
         | Safari ->new Safari.SafariDriver() :> IWebDriver
         | PhantomJS ->
             autoPinBrowserRightOnLaunch <- false

diff --git a/src/canopy/reporters.fs b/src/canopy/reporters.fs
@@ -209,6 +209,10 @@ type LiveHtmlReporter(browser : BrowserStartMode, driverPath : string, ?pinBrows
           let options = new Firefox.FirefoxOptions()
           options.BrowserExecutableLocation <- path
           new Firefox.FirefoxDriver(Firefox.FirefoxDriverService.CreateDefaultService(), options, timespan) :> IWebDriver
+        | FirefoxWithProfileAndTimeSpan(profile, timespan) -> 
+          let options = new Firefox.FirefoxOptions()
+          options.Profile <- profile
+          new Firefox.FirefoxDriver(Firefox.FirefoxDriverService.CreateDefaultService(), options, timespan) :> IWebDriver
         | Safari -> new Safari.SafariDriver() :> IWebDriver
         | PhantomJS | PhantomJSProxyNone -> raise(System.Exception("Sorry PhantomJS can't be used for LiveHtmlReporter"))
         | Remote(_,_) -> raise(System.Exception("Sorry Remote can't be used for LiveHtmlReporter"))

diff --git a/src/canopy/types.fs b/src/canopy/types.fs
@@ -46,6 +46,7 @@ type BrowserStartMode =
     | FirefoxWithPath of string
     | FirefoxWithUserAgent of string
     | FirefoxWithPathAndTimeSpan of string * TimeSpan
+    | FirefoxWithProfileAndTimeSpan of Firefox.FirefoxProfile * TimeSpan
     | IE
     | IEWithOptions of IE.InternetExplorerOptions
     | IEWithOptionsAndTimeSpan of IE.InternetExplorerOptions * TimeSpan