orion/purescript-puppeteer
orion/purescript-puppeteer
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: warnings

Browse Source
This commit is contained in:
orion 2023-09-29 22:36:12 -05:00
parent e3eb4924d0
commit 88f28d3424
Signed by: orion
GPG Key ID: 6D4165AE4C928719
4 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
spago.dhall
View File

@ -34,11 +34,9 @@ to generate this file without the comments in this block.
, "node-path"
, "node-process"
, "node-streams"
, "node-url"
, "nullable"
, "ordered-collections"
, "parallel"
, "partial"
, "prelude"
, "simple-json"
, "spec"

6
src/Puppeteer.Handle.purs
View File

@ -31,20 +31,18 @@ import Data.Map (Map)
import Data.Maybe (Maybe(..))
import Data.Nullable (Nullable)
import Data.Nullable as Nullable
import Effect (Effect)
import Effect.Aff (Aff)
import Foreign (Foreign, unsafeToForeign)
import Foreign (Foreign)
import Node.Buffer (Buffer)
import Node.Path (FilePath)
import Puppeteer.Base (Handle) as X
import Puppeteer.Base (class IsElement, Handle)
import Puppeteer.Cartesian (Coord)
import Puppeteer.Eval as Eval
import Puppeteer.FFI as FFI
import Puppeteer.Screenshot (ScreenshotOptions, prepareScreenshotOptions)
import Puppeteer.Selector (class Selector)
import Puppeteer.Selector as Selector
import Simple.JSON (class ReadForeign, class WriteForeign, writeJSON)
import Simple.JSON (class ReadForeign, class WriteForeign)
import Unsafe.Coerce (unsafeCoerce)
import Web.HTML (HTMLElement)
import Web.HTML as HTML

2
test/Puppeteer.Page.Spec.purs
View File

@ -177,7 +177,7 @@ spec = beforeAll (Pup.launch_ =<< Pup.puppeteer unit)
input <- liftMaybe (error "no inputs!") =<< Pup.Page.findFirst "input" p
input' <- liftMaybe (error "not an input!") =<< Pup.Handle.HTML.toHTMLInputElement input
shouldEqual "" =<< Pup.Handle.HTML.value input'
Pup.Handle.focus input
Pup.Handle.click input
kb <- liftEffect $ Pup.Page.keyboard p
Pup.Keyboard.doType "foo bar bingus bat" kb
shouldEqual "foo bar bingus bat" =<< Pup.Handle.HTML.value input'

2
test/Puppeteer.Spec.purs
View File

@ -12,7 +12,7 @@ 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, parallel)
import Test.Spec (SpecT, describe, mapSpecTree)
import Test.Spec.Assertions (shouldEqual)
import Test.Util (test)