Escape U+2028/U+2029 in ToQueryString and add regression tests

Agent-Logs-Url: https://github.com/fsprojects/FSharp.Data.GraphQL/sessions/fe5050da-a1a6-43d1-978f-18d01b969c4c

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

Author: Copilot

src/FSharp.Data.GraphQL.Shared/AstExtensions.fs

@@ -36,13 +36,16 @@ and internal AstSelectionInfo = {
 } with
 
     member x.AliasOrName = x.Alias |> ValueOption.defaultValue x.Name
-    static member Create (typeCondition : string voption, path : FieldPath, name : string, alias : string voption, [<Optional>] fields : AstSelectionInfo list) = {
-        TypeCondition = typeCondition
-        Name = name
-        Alias = alias
-        Path = path
-        Fields = if obj.ReferenceEquals (fields, null) then [] else fields
-    }
+    static member Create
+        (typeCondition : string voption, path : FieldPath, name : string, alias : string voption, [<Optional>] fields : AstSelectionInfo list)
+        =
+        {
+            TypeCondition = typeCondition
+            Name = name
+            Alias = alias
+            Path = path
+            Fields = if obj.ReferenceEquals (fields, null) then [] else fields
+        }
     member x.SetFields (fields : AstSelectionInfo list) = x.Fields <- fields
 
 and AstFieldInfo =
@@ -102,11 +105,11 @@ type Document with
     /// Generates a GraphQL query string from this document.
     /// </summary>
     /// <param name="options">Specify custom printing voptions for the query string.</param>
-    member x.ToQueryString ([<Optional; DefaultParameterValue (QueryStringPrintingOptions.None)>] options : QueryStringPrintingOptions) =
+    member x.ToQueryString ([<Optional; DefaultParameterValue(QueryStringPrintingOptions.None)>] options : QueryStringPrintingOptions) =
         let sb = PaddedStringBuilder ()
         let escapeGraphQLString (s : string) =
-            let escaped = StringBuilder(s.Length + 2)
-            escaped.Append('"') |> ignore
+            let escaped = StringBuilder (s.Length + 2)
+            escaped.Append ('"') |> ignore
             for c in s do
                 let appendStr =
                     match c with
@@ -117,12 +120,14 @@ type Document with
                     | '\n' -> "\\n"
                     | '\r' -> "\\r"
                     | '\t' -> "\\t"
+                    | '\u2028' -> "\\u2028"
+                    | '\u2029' -> "\\u2029"
                     | c when c < '\u0020' ->
-                        let hex = (int c).ToString("x4", CultureInfo.InvariantCulture)
+                        let hex = (int c).ToString ("x4", CultureInfo.InvariantCulture)
                         "\\u" + hex
                     | c -> string c
-                escaped.Append(appendStr) |> ignore
-            escaped.Append('"').ToString()
+                escaped.Append (appendStr) |> ignore
+            escaped.Append('"').ToString ()
         let withQuotes = escapeGraphQLString
         let rec printValue x =
             let printObjectValue (name, value) =

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

@@ -456,6 +456,24 @@ let ``ToQueryString escapes control characters as unicode in string values`` ()
     let reparsed = parse printed
     equals (document.ToQueryString ()) (reparsed.ToQueryString ())
 
+[<Fact>]
+let ``ToQueryString escapes unicode line separator in string values`` () =
+    let query = """query q { hero(text: "\u2028") }"""
+    let document = parse query
+    let printed = document.ToQueryString ()
+    Assert.Contains ("\\u2028", printed)
+    let reparsed = parse printed
+    equals (document.ToQueryString ()) (reparsed.ToQueryString ())
+
+[<Fact>]
+let ``ToQueryString escapes unicode paragraph separator in string values`` () =
+    let query = """query q { hero(text: "\u2029") }"""
+    let document = parse query
+    let printed = document.ToQueryString ()
+    Assert.Contains ("\\u2029", printed)
+    let reparsed = parse printed
+    equals (document.ToQueryString ()) (reparsed.ToQueryString ())
+
 [<Fact>]
 let ``ToQueryString escapes multiple special characters correctly`` () =
     let query = """query q { hero(text: "quote:\"newline:\nslash:\\tab:\t") }"""