add ClickableText icon rendering tests

NoRedInk · Oct 26, 2023 · bc7d536 · bc7d536
1 parent 4f99c13
commit bc7d536
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/tests/Spec/Nri/Ui/ClickableText.elm b/tests/Spec/Nri/Ui/ClickableText.elm
@@ -36,6 +36,8 @@ elementTests =
     [ testAsButton
     , testAsAnchor
     , testIconAsSvg
+    , testRightIconAsSvg
+    , testLinkExternalIconAsSvg
     ]
 
 
@@ -66,6 +68,24 @@ testIconAsSvg =
                 |> done
 
 
+testRightIconAsSvg : Test
+testRightIconAsSvg =
+    test "renders an svg element when a right icon is provided" <|
+        \() ->
+            program Button [ ClickableText.rightIcon UiIcon.arrowLeft ]
+                |> ensureViewHas [ tag "svg" ]
+                |> done
+
+
+testLinkExternalIconAsSvg : Test
+testLinkExternalIconAsSvg =
+    test "renders an svg element when an external link is provided" <|
+        \() ->
+            program Link [ ClickableText.linkExternal "https://example.com" ]
+                |> ensureViewHas [ tag "svg" ]
+                |> done
+
+
 attributeTests : List Test
 attributeTests =
     [ testHref