NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-21 12:41:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

💀 Switch test that requires setup

Browse Source
This commit is contained in:
Tessa Kelly 2022-04-13 14:22:37 -07:00
parent 3e1ba460fb
commit 540c10452d
1 changed files with 0 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
tests/Spec/Nri/Ui/Switch.elm
View File

@ -1,45 +0,0 @@
module Spec.Nri.Ui.Switch exposing (spec)
import Accessibility.Widget as Widget
import Html.Styled as HtmlStyled
import Nri.Ui.Switch.V1 as Switch
import ProgramTest exposing (..)
import Test exposing (..)
import Test.Html.Selector as Selector
spec : Test
spec =
describe "Nri.Ui.Switch.V1"
[ test "it works" <|
\() ->
program
[ Switch.label (HtmlStyled.text "Switch")
, Switch.onSwitch identity
, Switch.id "switch"
]
True
-- switch starts with aria-checked=true and displays the label
|> ensureViewHas
[ Selector.attribute (Widget.checked (Just True))
, Selector.text "Switch"
]
-- user can click the first switch
|> check "switch" "Switch" False
-- the switch now has aria-checked=false
|> ensureViewHas
[ Selector.attribute (Widget.checked (Just False))
, Selector.text "Switch"
]
|> done
]
program : List (Switch.Attribute Bool) -> Bool -> ProgramTest Bool Bool ()
program attributes init =
ProgramTest.createSandbox
{ init = init
, update = \msg model -> msg
, view = \isOpen -> Switch.view attributes isOpen |> HtmlStyled.toUnstyled
}
|> ProgramTest.start ()