54 lines
1.5 KiB
Haskell
54 lines
1.5 KiB
Haskell
module Puppeteer.Selector.Spec where
|
|
|
|
import Prelude
|
|
|
|
import Data.Foldable (fold)
|
|
import Data.Identity (Identity)
|
|
import Data.Tuple.Nested ((/\))
|
|
import Effect.Aff (Aff)
|
|
import Puppeteer.Selector as S
|
|
import Test.Spec (SpecT, describe)
|
|
import Test.Spec.Assertions (shouldEqual)
|
|
import Test.Util (test)
|
|
import Web.HTML (HTMLButtonElement)
|
|
|
|
spec :: SpecT Aff Unit Identity Unit
|
|
spec = describe "Selector" do
|
|
test "toCSS" do
|
|
let isButton = identity :: forall s. S.Selector s HTMLButtonElement => s -> s
|
|
let
|
|
s = S.toCSS
|
|
$ isButton
|
|
$
|
|
S.button
|
|
`S.hasId` "foo"
|
|
`S.hasClass` "bar"
|
|
`S.hasAttr` "disabled"
|
|
`S.hasAttrContaining` ("ident" /\ "abc")
|
|
`S.hasAttrListContaining` ("feet" /\ "left_foot")
|
|
`S.hasAttrStartsWith` ("name" /\ "frank")
|
|
`S.hasAttrEndsWith` ("name" /\ "johnson")
|
|
`S.isDescendantOf` S.body
|
|
`S.isChildOf` S.html
|
|
`S.not` (S.enabled S.none)
|
|
`S.has` (S.div `S.isChildOf` S.none)
|
|
# S.focus
|
|
# S.disabled
|
|
# S.active
|
|
let
|
|
expected = fold
|
|
[ "html > body button"
|
|
, "#foo.bar"
|
|
, """[disabled]"""
|
|
, """[ident *= "abc"]"""
|
|
, """[feet ~= "left_foot"]"""
|
|
, """[name ^= "frank"]"""
|
|
, """[name $= "johnson"]"""
|
|
, ":not(:enabled)"
|
|
, ":has( > div)"
|
|
, ":focus"
|
|
, ":disabled"
|
|
, ":active"
|
|
]
|
|
s `shouldEqual` expected
|