Add test

Author: reakaleek

tests/authoring/Inline/AppliesToRole.fs

@@ -121,3 +121,44 @@ type ``parses multiple applies_to in one line`` () =
                 Ece=AppliesCollection.op_Explicit "removed"
             )
         ))
+
+type ``render 'GA Planned' if preview exists alongside ga`` () =
+    static let markdown = Setup.Markdown """
+
+This is an inline {applies_to}`stack: preview 9.0, ga 9.1` element.
+"""
+
+    [<Fact>]
+    let ``parses to AppliesDirective`` () =
+        let directives = markdown |> converts "index.md" |> parses<AppliesToRole>
+        test <@ directives.Length = 1 @>
+        directives |> appliesToDirective (ApplicableTo(
+            Stack=AppliesCollection.op_Explicit "preview 9.0, ga 9.1"
+        ))
+
+    [<Fact>]
+    let ``validate HTML: generates link and alt attr`` () =
+        markdown |> convertsToHtml """
+<p>This is an inline
+	<span class="applies applies-inline">
+		<span class="applicable-info">
+			<span class="applicable-name" data-tippy-content="Part of the versioned Elastic Stack
+
+Available in ECH, ECE, ECK, and self-managed deployments, unless otherwise stated">Stack</span>
+			<span class="applicable-separator"></span>
+			<span class="applicable-meta applicable-meta-planned" data-tippy-content="We plan to add this functionality in a future update. Plans may change without notice.">
+				Planned
+			</span>
+		</span>
+		<span class="applicable-info">
+			<span class="applicable-name" data-tippy-content="Part of the versioned Elastic Stack
+
+Available in ECH, ECE, ECK, and self-managed deployments, unless otherwise stated">Stack</span>
+			<span class="applicable-separator"></span>
+			<span class="applicable-meta applicable-meta-planned" data-tippy-content="We plan to add this functionality in a future update. Plans may change without notice.">
+				GA planned
+			</span>
+		</span>
+	</span>
+	element.</p>
+"""