Add tests for keyedLazy

Author: micahhahn

tests/Styled.elm

@@ -3,8 +3,10 @@ module Styled exposing (all)
 -- import ReadmeExample
 
 import Css exposing (..)
+import Css.Media as Media
 import Html.Styled exposing (Html, a, button, div, header, img, nav, text, toUnstyled)
 import Html.Styled.Attributes exposing (class, css, src)
+import Html.Styled.Lazy exposing (keyedLazy)
 import Test exposing (Test, describe)
 import Test.Html.Query as Query
 import Test.Html.Selector as Selector
@@ -108,6 +110,7 @@ all =
                         ]
             )
         , bug564
+        , keyedLazyTests
         ]
 
 
@@ -141,3 +144,49 @@ bug564 =
                     |> Query.fromHtml
                     |> Query.has [ Selector.classes [ "_5dc67897", "some-custom-class" ] ]
         ]
+
+
+keyedLazyTests : Test
+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) ] ] []
+                        )
+                    )
+                    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) ] ] []
+                            ]
+                        )
+                    )
+                    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) ] ] ] []
+                            ]
+                        )
+                    )
+                    1
+                    |> toUnstyled
+                    |> Query.fromHtml
+                    |> Query.has [ Selector.text "#item-1 ._22afe2eb" ]
+        ]