Use new API in tests

Author: micahhahn

tests/Styled.elm

@@ -4,9 +4,9 @@ module Styled exposing (all)
 
 import Css exposing (..)
 import Css.Media as Media
-import Html.Styled exposing (Html, a, button, div, header, img, nav, text, toUnstyled)
+import Html.Styled exposing (Html, a, button, div, header, img, li, nav, text, toUnstyled)
 import Html.Styled.Attributes exposing (class, css, src)
-import Html.Styled.Lazy exposing (keyedLazy)
+import Html.Styled.Keyed exposing (lazyNode)
 import Test exposing (Test, describe)
 import Test.Html.Query as Query
 import Test.Html.Selector as Selector
@@ -151,41 +151,36 @@ keyedLazyTests =
     describe "keyedLazy"
         [ Test.test "generates an appropriate selector for the root node" <|
             \_ ->
-                keyedLazy
-                    (\i ->
-                        ( "item-" ++ String.fromInt i
-                        , div [ css [ color (rgb 0 0 0) ] ] []
-                        )
+                lazyNode "ul"
+                    []
+                    (\_ ->
+                        div [ css [ color (rgb 0 0 0) ] ] []
                     )
-                    1
+                    [ ( "item-1", 1 ) ]
                     |> toUnstyled
                     |> Query.fromHtml
                     |> Query.has [ Selector.text "#item-1._5dc67897" ]
         , Test.test "generates an appropriate selector for a descendant node" <|
             \_ ->
-                keyedLazy
-                    (\i ->
-                        ( "item-" ++ String.fromInt i
-                        , div []
-                            [ div [ css [ color (rgb 0 0 0) ] ] []
-                            ]
-                        )
+                lazyNode
+                    "ul"
+                    []
+                    (\_ ->
+                        li [] [ div [ css [ color (rgb 0 0 0) ] ] [] ]
                     )
-                    1
+                    [ ( "item-1", 1 ) ]
                     |> toUnstyled
                     |> Query.fromHtml
                     |> Query.has [ Selector.text "#item-1 ._5dc67897" ]
         , Test.test "generates an appropriate selector with media" <|
             \_ ->
-                keyedLazy
-                    (\i ->
-                        ( "item-" ++ String.fromInt i
-                        , div []
-                            [ div [ css [ Media.withMedia [ Media.only Media.screen [] ] [ color (rgb 0 0 0) ] ] ] []
-                            ]
-                        )
+                lazyNode
+                    "ul"
+                    []
+                    (\_ ->
+                        li [] [ div [ css [ Media.withMedia [ Media.only Media.screen [] ] [ color (rgb 0 0 0) ] ] ] [] ]
                     )
-                    1
+                    [ ( "item-1", 1 ) ]
                     |> toUnstyled
                     |> Query.fromHtml
                     |> Query.has [ Selector.text "#item-1 ._22afe2eb" ]