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 @@
+
Cfg_2
Base
@@ -133,7 +134,7 @@
true
-
+
standardsdata.exe
true