From 4c86ab5b59007a242aa63e7d8eb2e88bc3c13757 Mon Sep 17 00:00:00 2001
From: "github-actions[bot]" <github-actions[bot]@users.noreply.github.com>
Date: Tue, 17 Mar 2026 16:48:54 +0000
Subject: [PATCH 1/2] Add SchemaReaderErrors static property to
 OpenApiClientProvider (fixes #160)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Exposes parse errors collected during schema loading as a static
'SchemaReaderErrors : string list' property on the generated root type.

- Non-empty only when IgnoreParseErrors=true and the schema has issues
- Each entry formatted as '<message> @ <pointer>' (matches stderr output)
- Returns [] for valid schemas, safe to always inspect

Also adds Swagger.SchemaReaderErrors.Tests covering:
- Valid schema → empty list
- Schema with validation errors + IgnoreParseErrors=true → non-empty list
- Error entries contain both message and pointer parts

Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
---
 .../Provider.OpenApiClient.fs                 | 28 ++++++++++++++++
 .../SwaggerProvider.ProviderTests.fsproj      |  1 +
 .../v3/Swagger.SchemaReaderErrors.Tests.fs    | 33 +++++++++++++++++++
 3 files changed, 62 insertions(+)
 create mode 100644 tests/SwaggerProvider.ProviderTests/v3/Swagger.SchemaReaderErrors.Tests.fs

diff --git a/src/SwaggerProvider.DesignTime/Provider.OpenApiClient.fs b/src/SwaggerProvider.DesignTime/Provider.OpenApiClient.fs
index 4fce415..527dd95 100644
--- a/src/SwaggerProvider.DesignTime/Provider.OpenApiClient.fs
+++ b/src/SwaggerProvider.DesignTime/Provider.OpenApiClient.fs
@@ -5,6 +5,8 @@ open System.Reflection
 open Microsoft.OpenApi.Reader
 open ProviderImplementation.ProvidedTypes
 open Microsoft.FSharp.Core.CompilerServices
+open Microsoft.FSharp.Quotations
+open Microsoft.FSharp.Reflection
 open Swagger
 open SwaggerProvider.Internal
 open SwaggerProvider.Internal.v3.Compilers
@@ -28,6 +30,14 @@ type public OpenApiClientTypeProvider(cfg: TypeProviderConfig) as this =
     // check we contain a copy of runtime files, and are not referencing the runtime DLL
     do assert (typeof<ProvidedApiClientBase>.Assembly.GetName().Name = asm.GetName().Name)
 
+    let buildStringListExpr(items: string list) : Expr =
+        let cases = FSharpType.GetUnionCases typeof<string list>
+        let nilCase = cases |> Array.find(fun c -> c.Name = "Empty")
+        let consCase = cases |> Array.find(fun c -> c.Name = "Cons")
+        let nil = Expr.NewUnionCase(nilCase, [])
+
+        List.foldBack (fun (s: string) acc -> Expr.NewUnionCase(consCase, [ Expr.Value(s, typeof<string>); acc ])) items nil
+
     let myParamType =
         let t =
             ProvidedTypeDefinition(asm, ns, "OpenApiClientProvider", Some typeof<obj>, isErased = false)
@@ -103,6 +113,11 @@ type public OpenApiClientTypeProvider(cfg: TypeProviderConfig) as this =
                                      |> Seq.map(fun e -> $"%s{e.Message} @ %s{e.Pointer}")
                                      |> String.concat "\n")
 
+                        let parseErrors =
+                            diagnostic.Errors
+                            |> Seq.map(fun e -> $"%s{e.Message} @ %s{e.Pointer}")
+                            |> Seq.toList
+
                         let defCompiler = DefinitionCompiler(schema, preferNullable)
 
                         let opCompiler =
@@ -118,6 +133,19 @@ type public OpenApiClientTypeProvider(cfg: TypeProviderConfig) as this =
 
                         ty.AddXmlDoc("OpenAPI Provider for " + schemaPathRaw)
                         ty.AddMembers tys
+
+                        let errProp =
+                            ProvidedProperty(
+                                "SchemaReaderErrors",
+                                typeof<string list>,
+                                isStatic = true,
+                                getterCode = fun _ -> buildStringListExpr parseErrors
+                            )
+
+                        errProp.AddXmlDoc
+                            "List of OpenAPI parse errors tolerated by this provider instance. Non-empty only when IgnoreParseErrors=true and the schema has validation issues."
+
+                        ty.AddMember errProp
                         tempAsm.AddTypes [ ty ]
 
                         ty
diff --git a/tests/SwaggerProvider.ProviderTests/SwaggerProvider.ProviderTests.fsproj b/tests/SwaggerProvider.ProviderTests/SwaggerProvider.ProviderTests.fsproj
index feb8be6..ecb8b27 100644
--- a/tests/SwaggerProvider.ProviderTests/SwaggerProvider.ProviderTests.fsproj
+++ b/tests/SwaggerProvider.ProviderTests/SwaggerProvider.ProviderTests.fsproj
@@ -28,6 +28,7 @@
     <Compile Include="v3\Swagger.I0219.Tests.fs" />
     <Compile Include="v3\Swagger.I0279.Tests.fs" />
     <Compile Include="v3\Swagger.NullableDate.Tests.fs" />
+    <Compile Include="v3\Swagger.SchemaReaderErrors.Tests.fs" />
     <Compile Include="v3\Swashbuckle.ReturnControllers.Tests.fs" />
     <Compile Include="v3\Swashbuckle.ReturnTextControllers.Tests.fs" />
     <Compile Include="v3\Swashbuckle.UpdateControllers.Tests.fs" />
diff --git a/tests/SwaggerProvider.ProviderTests/v3/Swagger.SchemaReaderErrors.Tests.fs b/tests/SwaggerProvider.ProviderTests/v3/Swagger.SchemaReaderErrors.Tests.fs
new file mode 100644
index 0000000..f889558
--- /dev/null
+++ b/tests/SwaggerProvider.ProviderTests/v3/Swagger.SchemaReaderErrors.Tests.fs
@@ -0,0 +1,33 @@
+module Swagger.SchemaReaderErrors.Tests
+
+open SwaggerProvider
+open Xunit
+open FsUnitTyped
+
+[<Literal>]
+let ValidSchema = __SOURCE_DIRECTORY__ + "/../Schemas/v3/petstore.yaml"
+
+[<Literal>]
+let SchemaWithErrors =
+    __SOURCE_DIRECTORY__
+    + "/../Schemas/v3/nullable-parameter-issue261.json"
+
+type ValidApi = OpenApiClientProvider<ValidSchema>
+
+type ApiWithErrors = OpenApiClientProvider<SchemaWithErrors, IgnoreParseErrors=true>
+
+[<Fact>]
+let ``SchemaReaderErrors is empty for a valid schema``() =
+    ValidApi.SchemaReaderErrors |> shouldEqual []
+
+[<Fact>]
+let ``SchemaReaderErrors is non-empty when IgnoreParseErrors=true and schema has validation errors``() =
+    ApiWithErrors.SchemaReaderErrors |> List.isEmpty |> shouldEqual false
+
+[<Fact>]
+let ``SchemaReaderErrors entries contain message and pointer``() =
+    let errors = ApiWithErrors.SchemaReaderErrors
+    errors |> List.isEmpty |> shouldEqual false
+
+    for entry in errors do
+        entry.Contains(" @ ") |> shouldEqual true

From ae70167eaf71a6fc3d538e136453f5bbfd8c2851 Mon Sep 17 00:00:00 2001
From: "github-actions[bot]" <github-actions[bot]@users.noreply.github.com>
Date: Tue, 17 Mar 2026 16:56:56 +0000
Subject: [PATCH 2/2] ci: trigger checks