update more fsharp nullable warnings which are noisy on CI

Author: Mpdreamz

tests/authoring/Framework/MarkdownDocumentAssertions.fs

@@ -33,8 +33,8 @@ module MarkdownDocumentAssertions =
         let matter = result.File.YamlFrontMatter
         match matter with
         | NonNull m ->
-            match expectedAvailability with
-            | NonNull a -> m.AppliesTo.Diagnostics <- a.Diagnostics
+            match (expectedAvailability, m.AppliesTo) with
+            | NonNull a, NonNull applies -> applies.Diagnostics <- a.Diagnostics
             | _ -> ()
 
             let apply = m.AppliesTo

tests/authoring/FrontMatter/ProductsFrontMatter.fs

@@ -69,13 +69,19 @@ This is a test page without products frontmatter.
 
         // Test that the file has the correct products
         test <@ defaultFile.File.YamlFrontMatter <> null @>
-        test <@ defaultFile.File.YamlFrontMatter.Products <> null @>
-        test <@ defaultFile.File.YamlFrontMatter.Products.Count = 2 @>
+        match defaultFile.File.YamlFrontMatter with
+        | NonNull yamlFrontMatter ->
+            test <@ yamlFrontMatter.Products <> null @>
+            match yamlFrontMatter.Products with
+            | NonNull products ->
+                test <@ products.Count = 2 @>
+                // Test that the products are correctly identified
+                let productIds = products |> Seq.map _.Id |> Set.ofSeq
+                test <@ productIds.Contains("elasticsearch") @>
+                test <@ productIds.Contains("ecctl") @>
+            | _ -> ()
+        | _ -> ()
 
-        // Test that the products are correctly identified
-        let productIds = defaultFile.File.YamlFrontMatter.Products |> Seq.map (fun p -> p.Id) |> Set.ofSeq
-        test <@ productIds.Contains("elasticsearch") @>
-        test <@ productIds.Contains("ecctl") @>
 
     [<Fact>]
     let ``does not include products in frontmatter when no products are specified`` () =
@@ -84,4 +90,10 @@ This is a test page without products frontmatter.
         let defaultFile = results.MarkdownResults |> Seq.find (fun r -> r.File.RelativePath = "index.md")
 
         // Test that the file has no products
-        test <@ defaultFile.File.YamlFrontMatter = null || defaultFile.File.YamlFrontMatter.Products = null || defaultFile.File.YamlFrontMatter.Products.Count = 0 @>
+        match defaultFile.File.YamlFrontMatter with
+        | NonNull frontMatter ->
+            match frontMatter.Products with
+            | NonNull products -> 
+                test <@ products.Count = 0 @>
+            | _ -> ()
+        | _ -> ()