43 lines
1.1 KiB
Haskell
43 lines
1.1 KiB
Haskell
module Puppeteer.Spec where
|
|
|
|
import Prelude
|
|
|
|
import Data.Newtype (unwrap)
|
|
import Effect (Effect)
|
|
import Effect.Aff (Aff)
|
|
import Effect.Class (liftEffect)
|
|
import Puppeteer as Pup
|
|
import Puppeteer.Browser as Pup.Browser
|
|
import Puppeteer.Browser.Spec as Spec.Browser
|
|
import Puppeteer.Handle.Spec as Spec.Handle
|
|
import Puppeteer.Page.Spec as Spec.Page
|
|
import Puppeteer.Selector.Spec as Spec.Selector
|
|
import Test.Spec (SpecT, describe, mapSpecTree)
|
|
import Test.Spec.Assertions (shouldEqual)
|
|
import Test.Util (test)
|
|
|
|
spec :: SpecT Aff Unit Effect Unit
|
|
spec = describe "Puppeteer" do
|
|
test "launch" do
|
|
pup <- Pup.puppeteer unit
|
|
map void Pup.launch_ pup
|
|
|
|
test "connect" do
|
|
pup <- Pup.puppeteer unit
|
|
|
|
b1 <- Pup.launch_ pup
|
|
ws <- liftEffect $ Pup.Browser.websocketEndpoint b1
|
|
|
|
liftEffect do
|
|
shouldEqual true <=< Pup.Browser.connected $ b1
|
|
Pup.Browser.disconnect b1
|
|
shouldEqual false <=< Pup.Browser.connected $ b1
|
|
|
|
b2 <- Pup.connect (Pup.connectDefault $ Pup.BrowserWebsocket ws) pup
|
|
Pup.Browser.close b2
|
|
|
|
Spec.Browser.spec
|
|
Spec.Page.spec
|
|
Spec.Handle.spec
|
|
mapSpecTree (pure <<< unwrap) identity Spec.Selector.spec
|