From dac9e80c9735f48ec4b7c5d68b0f0d2aa3eeba15 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Wed, 29 Sep 2021 12:12:48 +1000
Subject: [PATCH] fix(windows): unit test os version

---
 .../unit-tests/standards-data/GetOsVersion.pas | 18 ++++++++++++++++++
 .../standards-data/standardsdata.dpr           |  3 ++-
 .../standards-data/standardsdata.dproj         |  3 ++-
 3 files changed, 22 insertions(+), 2 deletions(-)
 create mode 100644 windows/src/unit-tests/standards-data/GetOsVersion.pas

diff --git a/windows/src/unit-tests/standards-data/GetOsVersion.pas b/windows/src/unit-tests/standards-data/GetOsVersion.pas
new file mode 100644
index 0000000000..a3068b51cd
--- /dev/null
+++ b/windows/src/unit-tests/standards-data/GetOsVersion.pas
@@ -0,0 +1,18 @@
+unit GetOsVersion;
+
+interface
+
+// This is a stub version of GetOsVersion for unit tests
+type
+  TOS = (osLegacy, osVista, osWin7, osWin8, osWin10, osOther);
+
+function GetOs: TOS;
+
+implementation
+
+function GetOs: TOS;
+begin
+  Result := osWin10;
+end;
+
+end.
diff --git a/windows/src/unit-tests/standards-data/standardsdata.dpr b/windows/src/unit-tests/standards-data/standardsdata.dpr
index 5b5d0da7b9..913eaff544 100644
--- a/windows/src/unit-tests/standards-data/standardsdata.dpr
+++ b/windows/src/unit-tests/standards-data/standardsdata.dpr
@@ -22,7 +22,8 @@ uses
   Keyman.System.Standards.LangTagsRegistry in '..\..\global\delphi\standards\Keyman.System.Standards.LangTagsRegistry.pas',
   Keyman.System.Standards.LCIDToBCP47Registry in '..\..\global\delphi\standards\Keyman.System.Standards.LCIDToBCP47Registry.pas',
   utilstr in '..\..\global\delphi\general\utilstr.pas',
-  Unicode in '..\..\global\delphi\general\Unicode.pas';
+  Unicode in '..\..\global\delphi\general\Unicode.pas',
+  GetOsVersion in 'GetOsVersion.pas';
 
 var
   runner : ITestRunner;
diff --git a/windows/src/unit-tests/standards-data/standardsdata.dproj b/windows/src/unit-tests/standards-data/standardsdata.dproj
index fd12709617..6787b3dab3 100644
--- a/windows/src/unit-tests/standards-data/standardsdata.dproj
+++ b/windows/src/unit-tests/standards-data/standardsdata.dproj
@@ -96,6 +96,7 @@
         <DCCReference Include="..\..\global\delphi\standards\Keyman.System.Standards.LCIDToBCP47Registry.pas"/>
         <DCCReference Include="..\..\global\delphi\general\utilstr.pas"/>
         <DCCReference Include="..\..\global\delphi\general\Unicode.pas"/>
+        <DCCReference Include="GetOsVersion.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -133,7 +134,7 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win32\Debug\standardsdata.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="bin\Win32\Debug\standardsdata.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
                         <RemoteName>standardsdata.exe</RemoteName>
                         <Overwrite>true</Overwrite>