diff --git a/tests/FSharp.Data.Reference.Tests/FSharp.Data.Reference.Tests.fsproj b/tests/FSharp.Data.Reference.Tests/FSharp.Data.Reference.Tests.fsproj
index 8c9ae799c..464880064 100644
--- a/tests/FSharp.Data.Reference.Tests/FSharp.Data.Reference.Tests.fsproj
+++ b/tests/FSharp.Data.Reference.Tests/FSharp.Data.Reference.Tests.fsproj
@@ -11,6 +11,7 @@
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="JsonProvider.fs" />
+    <Compile Include="XmlProvider.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <ItemGroup>
diff --git a/tests/FSharp.Data.Reference.Tests/XmlProvider.fs b/tests/FSharp.Data.Reference.Tests/XmlProvider.fs
new file mode 100644
index 000000000..7f26c8033
--- /dev/null
+++ b/tests/FSharp.Data.Reference.Tests/XmlProvider.fs
@@ -0,0 +1,9 @@
+module FSharp.Data.Reference.Tests.XmlProvider
+
+open NUnit.Framework
+open FsUnit
+
+[<Test>]
+let ``GetSchema works for XmlProvider with Schema and EmbeddedResource`` () =
+    let schema = FSharp.Data.Tests.XmlProvider.XmlSchemaWithEmbeddedResource.GetSchema()
+    schema.Count |> should equal 1
diff --git a/tests/FSharp.Data.Tests/XmlProvider.fs b/tests/FSharp.Data.Tests/XmlProvider.fs
index 7e34da43a..f0d6baf44 100644
--- a/tests/FSharp.Data.Tests/XmlProvider.fs
+++ b/tests/FSharp.Data.Tests/XmlProvider.fs
@@ -1312,3 +1312,7 @@ let ``Inline schemas as overrides replace value-based inference when present`` (
     sample[1].Value.GetType() |> should equal (typeof<int option>)
     // (Note the types in the inline schemas are automatically transformed to options as needed
     // when another node does not define any value for the given property)
+
+// Used by FSharp.Data.Reference.Tests to verify that GetSchema works with EmbeddedResource
+type XmlSchemaWithEmbeddedResource =
+    XmlProvider<Schema = "Data/po.xsd", EmbeddedResource = "FSharp.Data.Tests, FSharp.Data.Tests.Data.po.xsd">