sydtest-webdriver-yesod-0.0.0.0: test/Test/Syd/Webdriver/YesodSpec.hs

module Test.Syd.Webdriver.YesodSpec (spec) where

import Path
import Path.IO
import Test.Syd
import Test.Syd.Path
import Test.Syd.Webdriver
import Test.Syd.Webdriver.Yesod
import Test.Syd.Webdriver.Yesod.App

spec :: Spec
spec = exampleAppSpec $ do
  it "can navigate to home" $
    openRoute HomeR

exampleAppSpec :: WebdriverSpec App -> Spec
exampleAppSpec = webdriverYesodSpec $ \_ -> do
  tdir <- tempDirSetupFunc "sydtest-yesod"
  sessionKeyFile <- resolveFile tdir "client_session_key.aes"
  pure $ App {appSessionKeyFile = fromAbsFile sessionKeyFile}