NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-13 07:48:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Implement a basic test

Browse Source
This commit is contained in:
Tessa Kelly 2023-02-15 15:47:16 -07:00 committed by Alex Perkins
parent 71a02463f5
commit 0216163bab
No known key found for this signature in database
GPG Key ID: C7FADD739F72DA0D
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tests/Spec/Nri/Ui/Select.elm
View File

@ -1,19 +1,29 @@
module Spec.Nri.Ui.Select exposing (spec)
import Html.Attributes as Attributes
import Html.Styled
import Nri.Ui.Select.V8 as Select
import Nri.Ui.Select.V9 as Select
import ProgramTest exposing (..)
import Test exposing (..)
import Test.Html.Selector exposing (..)
spec : Test
spec =
describe "Nri.Ui.Select.V9"
[]
[ test "allows selection" <|
\() ->
start
-- first option is selected automatically
|> ensureViewHas [ selected True, attribute (Attributes.value "Cat") ]
|> selectAnimal Dog
|> ensureViewHas [ selected True, attribute (Attributes.value "Dog") ]
|> done
]
program : ProgramTest Model Msg ()
program =
start : ProgramTest Model Msg ()
start =
ProgramTest.createSandbox
{ init = { favoriteAnimal = Nothing }
, update = update
@ -30,6 +40,7 @@ program =
allAnimals
)
, Select.value model.favoriteAnimal
, Select.id selectId
]
|> Html.Styled.map SelectFavorite
|> Html.Styled.toUnstyled
@ -37,6 +48,16 @@ program =
|> ProgramTest.start ()
selectAnimal : Animal -> ProgramTest a b c -> ProgramTest a b c
selectAnimal animal =
selectOption selectId "Favorite type of animal" (toString animal) (toString animal)
selectId : String
selectId =
"favorite-animal-selector"
allAnimals : List Animal
allAnimals =
[ Cat, Dog, Pig, Other ]