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

Adds a failing test againt semantics

Browse Source
This commit is contained in:
Tessa Kelly 2023-01-03 11:49:50 -07:00
parent 769a236434
commit 1895252c4f
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/Spec/Nri/Ui/Pagination.elm
View File

@ -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" ]
]
]