Add paired case-sensitive/case-insensitive tests to ObjectListFilter test files

Co-authored-by: xperiandri <2365592+xperiandri@users.noreply.github.com>

Author: Copilot

tests/FSharp.Data.GraphQL.Tests/ObjectListFilterLinqGenerateTests.fs

@@ -196,6 +196,14 @@ let ``ObjectListFilter works with StartsWith operator for ValidStringStruct`` ()
     let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
     equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE STARTSWITH(root["validStringStruct"], "J")"""
 
+[<Fact>]
+let ``ObjectListFilter works with StartsWith case insensitive operator for ValidStringStruct`` () =
+    let queryable = container.GetItemLinqQueryable<FakeEntity> ()
+    let filter = StartsWith ({ FieldName = "validStringStruct"; Value = "J" }, StringComparer.OrdinalIgnoreCase)
+    let filterQuery = queryable.Apply (filter, filterOptions)
+    let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
+    equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE STARTSWITH(root["validStringStruct"], "J", true)"""
+
 [<Fact>]
 let ``ObjectListFilter works with EndsWith operator for ValidStringStruct`` () =
     let queryable = container.GetItemLinqQueryable<FakeEntity> ()
@@ -204,6 +212,14 @@ let ``ObjectListFilter works with EndsWith operator for ValidStringStruct`` () =
     let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
     equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE ENDSWITH(root["validStringStruct"], "n")"""
 
+[<Fact>]
+let ``ObjectListFilter works with EndsWith case insensitive operator for ValidStringStruct`` () =
+    let queryable = container.GetItemLinqQueryable<FakeEntity> ()
+    let filter = EndsWith ({ FieldName = "validStringStruct"; Value = "n" }, StringComparer.OrdinalIgnoreCase)
+    let filterQuery = queryable.Apply (filter, filterOptions)
+    let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
+    equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE ENDSWITH(root["validStringStruct"], "n", true)"""
+
 [<Fact>]
 let ``ObjectListFilter works with Contains operator for ValidStringStruct`` () =
     let queryable = container.GetItemLinqQueryable<FakeEntity> ()
@@ -212,6 +228,14 @@ let ``ObjectListFilter works with Contains operator for ValidStringStruct`` () =
     let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
     equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE CONTAINS(root["validStringStruct"], "athan")"""
 
+[<Fact>]
+let ``ObjectListFilter works with Contains case insensitive operator for ValidStringStruct`` () =
+    let queryable = container.GetItemLinqQueryable<FakeEntity> ()
+    let filter = Contains ({ FieldName = "validStringStruct"; Value = "athan" }, StringComparer.OrdinalIgnoreCase)
+    let filterQuery = queryable.Apply (filter, filterOptions)
+    let queryDefinition = CosmosLinqExtensions.ToQueryDefinition filterQuery
+    equals queryDefinition.QueryText, """SELECT VALUE root FROM root WHERE CONTAINS(root["validStringStruct"], "athan", true)"""
+
 [<Fact>]
 let ``ObjectListFilter works with Contains operator for ValidStringStruct list`` () =
     let queryable = container.GetItemLinqQueryable<FakeEntity> ()

tests/FSharp.Data.GraphQL.Tests/ObjectListFilterLinqTests.fs

@@ -538,6 +538,13 @@ let ``ObjectListFilter works with Equals case insensitive operator`` () =
     result.FirstName |> equals "Jonathan"
     result.LastName |> equals "Abrams"
 
+[<Fact>]
+let ``ObjectListFilter works with Equals case sensitive operator`` () =
+    let filter = Equals ({ FieldName = "firstName"; Value = "jonathan" }, null)
+    let queryable = data.AsQueryable ()
+    let filteredData = queryable.Apply (filter) |> Seq.toList
+    List.length filteredData |> equals 0
+
 [<Fact>]
 let ``ObjectListFilter works with Equals case insensitive operator upper case`` () =
     let filter = Equals ({ FieldName = "firstName"; Value = "JONATHAN" }, StringComparer.OrdinalIgnoreCase)
@@ -548,6 +555,13 @@ let ``ObjectListFilter works with Equals case insensitive operator upper case``
     result.ID |> equals 2
     result.FirstName |> equals "Jonathan"
 
+[<Fact>]
+let ``ObjectListFilter works with Equals case sensitive operator upper case`` () =
+    let filter = Equals ({ FieldName = "firstName"; Value = "JONATHAN" }, null)
+    let queryable = data.AsQueryable ()
+    let filteredData = queryable.Apply (filter) |> Seq.toList
+    List.length filteredData |> equals 0
+
 [<Fact>]
 let ``ObjectListFilter works with StartsWith case insensitive operator`` () =
     let filter = StartsWith ({ FieldName = "firstName"; Value = "j" }, StringComparer.OrdinalIgnoreCase)
@@ -558,6 +572,13 @@ let ``ObjectListFilter works with StartsWith case insensitive operator`` () =
     result.ID |> equals 2
     result.FirstName |> equals "Jonathan"
 
+[<Fact>]
+let ``ObjectListFilter works with StartsWith case sensitive operator`` () =
+    let filter = StartsWith ({ FieldName = "firstName"; Value = "j" }, null)
+    let queryable = data.AsQueryable ()
+    let filteredData = queryable.Apply (filter) |> Seq.toList
+    List.length filteredData |> equals 0
+
 [<Fact>]
 let ``ObjectListFilter works with EndsWith case insensitive operator`` () =
     let filter = EndsWith ({ FieldName = "lastName"; Value = "AMS" }, StringComparer.OrdinalIgnoreCase)
@@ -571,6 +592,13 @@ let ``ObjectListFilter works with EndsWith case insensitive operator`` () =
     result.ID |> equals 2
     result.LastName |> equals "Abrams"
 
+[<Fact>]
+let ``ObjectListFilter works with EndsWith case sensitive operator`` () =
+    let filter = EndsWith ({ FieldName = "lastName"; Value = "AMS" }, null)
+    let queryable = data.AsQueryable ()
+    let filteredData = queryable.Apply (filter) |> Seq.toList
+    List.length filteredData |> equals 0
+
 [<Fact>]
 let ``ObjectListFilter works with Contains case insensitive operator`` () =
     let filter = Contains ({ FieldName = "firstName"; Value = "EN" }, StringComparer.OrdinalIgnoreCase)
@@ -585,9 +613,8 @@ let ``ObjectListFilter works with Contains case insensitive operator`` () =
     result.FirstName |> equals "Jeneffer"
 
 [<Fact>]
-let ``ObjectListFilter case-insensitive operators do not match with case-sensitive filters`` () =
-    // Exact case-sensitive StartsWith "j" (lowercase) should match nothing in the data
-    let filter = StartsWith ({ FieldName = "firstName"; Value = "j" }, null)
+let ``ObjectListFilter works with Contains case sensitive operator`` () =
+    let filter = Contains ({ FieldName = "firstName"; Value = "EN" }, null)
     let queryable = data.AsQueryable ()
     let filteredData = queryable.Apply (filter) |> Seq.toList
     List.length filteredData |> equals 0