sandwich-webdriver-0.3.0.0: test/Spec.hs

import Test.Sandwich
import Test.Sandwich.WebDriver.Config
import Test.Sandwich.WebDriver.Binaries
import Data.Text as T
import UnliftIO.Temporary
import Data.Time.Clock
import Data.String.Interpolate


spec :: TopSpec
spec = do
  it "works" $ do
    2 `shouldBe` 2

  -- it "successfully runs obtainChromeDriver" $ do
  --   withSystemTempDirectory "test-download" $ \dir -> do
  --     obtainChromeDriver dir (DownloadChromeDriverAutodetect Nothing) >>= \case
  --       Right x -> info [i|Got chromedriver: #{x}|]
  --       Left err -> expectationFailure (T.unpack err)

  -- it "successfully runs obtainGeckoDriver" $ do
  --   withSystemTempDirectory "test-download" $ \dir -> do
  --     obtainGeckoDriver dir (DownloadGeckoDriverAutodetect Nothing) >>= \case
  --       Right x -> info [i|Got geckoDriver: #{x}|]
  --       Left err -> expectationFailure (T.unpack err)


main :: IO ()
main = runSandwich options spec
  where
    options = defaultOptions {
      optionsTestArtifactsDirectory = defaultTestArtifactsDirectory
      }