Add OperationError unit and integration tests

Agent-Logs-Url: https://github.com/fsprojects/FSharp.Data.GraphQL/sessions/d64ab4ee-eb67-4b7c-a114-d6ad4b640254

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

Author: Copilot

tests/FSharp.Data.GraphQL.IntegrationTests.Server/Schema.fs

@@ -2,6 +2,7 @@ namespace FSharp.Data.GraphQL.Samples.StarWarsApi
 
 open System
 open System.Text
+open System.Collections.Generic
 open Microsoft.AspNetCore.Http
 open Microsoft.Extensions.DependencyInjection
 
@@ -135,7 +136,19 @@ module Schema =
                     typedef = StructNullable OutputType,
                     description = "Enters an input type and get it back.",
                     args = [ Define.Input("input", Nullable InputType, description = "The input to be echoed as an output.") ],
-                    resolve = fun ctx _ -> ctx.TryArg("input")) ])
+                    resolve = fun ctx _ -> ctx.TryArg("input"))
+                  Define.Field(
+                      name = "alwaysError",
+                      typedef = Nullable StringType,
+                      description = "Always produces an execution error for integration tests.",
+                      args = [],
+                      resolve =
+                          fun _ _ ->
+                              let extensions = Dictionary<string, obj> 2
+                              extensions["code"] <- box "OPERATION_ERROR_TEST"
+                              extensions["severity"] <- box 7
+                              raise (GQLMessageException("Always fails for tests", extensions))
+                  ) ])
 
     let InputFileObject = Define.InputObject<InputFile>(
         name = "InputFile",

tests/FSharp.Data.GraphQL.IntegrationTests/FSharp.Data.GraphQL.IntegrationTests.fsproj

@@ -22,6 +22,7 @@
     </None>
     <Content Include="xunit.runner.json" CopyToOutputDirectory="PreserveNewest" />
     <Compile Include="Helpers.fs" />
+    <Compile Include="OperationErrorTests.fs" />
     <Compile Include="ReservedScalarNameProviderTests.fs" />
     <Compile Include="LocalProviderTests.fs" />
     <Compile Include="LocalProviderWithOptionalParametersOnlyTests.fs" />

tests/FSharp.Data.GraphQL.IntegrationTests/OperationErrorTests.fs

@@ -0,0 +1,66 @@
+module FSharp.Data.GraphQL.IntegrationTests.OperationErrorTests
+
+open System.Net.Http
+open Xunit
+open Helpers
+open FSharp.Data.GraphQL
+open FSharp.Data.GraphQL.Client
+
+let [<Literal>] ServerUrl = "http://localhost:8085"
+
+type Provider = GraphQLProvider<ServerUrl, uploadInputTypeName = "File", explicitOptionalParameters = false>
+
+module ErrorOperation =
+    let operation =
+        Provider.Operation<"""query ErrorQuery {
+            alwaysError
+        }""">()
+
+    type Operation = Provider.Operations.ErrorQuery
+
+[<Fact; Trait("OperationError", "Unit")>]
+let ``Should parse operation error fields from raw response`` () =
+    let result =
+        OperationResultBase(
+            rawResponse = new HttpResponseMessage(),
+            responseJson =
+                JsonValue.Parse
+                    """{
+                        "errors": [{
+                            "message": "unit-test error",
+                            "path": ["alwaysError", 0],
+                            "locations": [{ "line": 2, "column": 13 }],
+                            "extensions": { "code": "UNIT_TEST", "retryable": false, "severity": 7 }
+                        }]
+                    }""",
+            operationFields = [||],
+            operationTypeName = "Query"
+        )
+
+    result.Errors.Length |> equals 1
+
+    let error : FSharp.Data.GraphQL.OperationError = result.Errors.[0]
+    error.Message |> equals "unit-test error"
+    error.Path |> equals [| box "alwaysError"; box 0 |]
+    error.Locations |> equals [| { Line = 2; Column = 13 } |]
+    error.Extensions.["code"] |> equals (box "UNIT_TEST")
+    error.Extensions.["retryable"] |> equals (box false)
+    error.Extensions.["severity"] |> equals (box 7)
+
+[<Fact; Trait("OperationError", "Integration")>]
+let ``Should map server error extensions and locations into operation result`` () =
+    let result = ErrorOperation.operation.Run()
+
+    result.Errors.Length |> equals 1
+
+    let error : FSharp.Data.GraphQL.OperationError = result.Errors.[0]
+    error.Message |> equals "Always fails for tests"
+    error.Path |> equals [| box "alwaysError" |]
+
+    error.Locations |> equals [||]
+
+    error.Extensions.ContainsKey "code" |> equals true
+    error.Extensions.["code"] |> equals (box "OPERATION_ERROR_TEST")
+    error.Extensions.ContainsKey "severity" |> equals true
+    error.Extensions.["severity"] |> equals (box 7)
+    error.Extensions.ContainsKey "kind" |> equals true