diff --git a/tests/Spec/Nri/Ui/Pagination.elm b/tests/Spec/Nri/Ui/Pagination.elm index 3e2c203b..80bb8252 100644 --- a/tests/Spec/Nri/Ui/Pagination.elm +++ b/tests/Spec/Nri/Ui/Pagination.elm @@ -1,6 +1,7 @@ module Spec.Nri.Ui.Pagination exposing (spec) import Accessibility.Aria as Aria +import Expect import Html.Styled import Nri.Ui.Pagination.V1 as Pagination import Test exposing (..) @@ -39,4 +40,13 @@ spec = , Selector.containing [ Selector.attribute (Aria.label "Page 2") ] ] + , test "Uses anchor tags rather than buttons" <| + \() -> + Pagination.view (always ()) 0 [ (), () ] + |> Html.Styled.toUnstyled + |> Query.fromHtml + |> Expect.all + [ Query.has [ Selector.tag "a" ] + , Query.hasNot [ Selector.tag "button" ] + ] ]