noredink-ui/tests/Spec/Nri/Ui/TextInput.elm
2020-08-13 16:40:03 -05:00

26 lines
733 B
Elm

module Spec.Nri.Ui.TextInput exposing (spec)
import Html.Styled
import Nri.Ui.TextInput.V6 as TextInput
import Test exposing (..)
import Test.Html.Query as Query
import Test.Html.Selector exposing (..)
spec : Test
spec =
describe "Nri.Ui.TextInput.V6"
[ test "it uses the same DOM id that generateId produces" <|
\() ->
TextInput.view "myLabel"
(TextInput.text identity)
[]
""
|> Html.Styled.toUnstyled
|> Query.fromHtml
|> Query.has
[ tag "input"
, id (TextInput.generateId "myLabel")
]
]