mirror of
https://github.com/keymanapp/keyman.git
synced 2026-09-17 21:27:40 +00:00
385045e978
* StockFileNames.pas was missed in earlier moves. * Cleaned up references in various dproj files * Fixed up broken references to common files
149 lines
9.9 KiB
ObjectPascal
149 lines
9.9 KiB
ObjectPascal
program KeyboardPackageVersionsTestSuite;
|
|
|
|
{$IFNDEF TESTINSIGHT}
|
|
{$APPTYPE CONSOLE}
|
|
{$ENDIF}{$STRONGLINKTYPES ON}
|
|
uses
|
|
System.SysUtils,
|
|
{$IFDEF TESTINSIGHT}
|
|
TestInsight.DUnitX,
|
|
{$ENDIF }
|
|
DUnitX.Loggers.Console,
|
|
DUnitX.Loggers.Xml.NUnit,
|
|
DUnitX.TestFramework,
|
|
Keyman.Test.System.CompilePackageVersioningTest in 'Keyman.Test.System.CompilePackageVersioningTest.pas',
|
|
CompilePackage in '..\..\..\common\delphi\compiler\CompilePackage.pas',
|
|
VisualKeyboard in '..\..\..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboard.pas',
|
|
kmpinffile in '..\..\..\..\..\common\windows\delphi\packages\kmpinffile.pas',
|
|
kpsfile in '..\..\..\common\delphi\packages\kpsfile.pas',
|
|
PackageFileFormats in '..\..\..\..\..\common\windows\delphi\packages\PackageFileFormats.pas',
|
|
PackageInfo in '..\..\..\..\..\common\windows\delphi\packages\PackageInfo.pas',
|
|
utilfiletypes in '..\..\..\..\..\common\windows\delphi\general\utilfiletypes.pas',
|
|
StockFileNames in '..\..\..\..\..\common\windows\delphi\general\StockFileNames.pas',
|
|
utilstr in '..\..\..\..\..\common\windows\delphi\general\utilstr.pas',
|
|
Unicode in '..\..\..\..\..\common\windows\delphi\general\Unicode.pas',
|
|
JsonUtil in '..\..\..\..\..\common\windows\delphi\general\JsonUtil.pas',
|
|
KeymanVersion in '..\..\..\..\..\common\windows\delphi\general\KeymanVersion.pas',
|
|
utildir in '..\..\..\..\..\common\windows\delphi\general\utildir.pas',
|
|
utilsystem in '..\..\..\..\..\common\windows\delphi\general\utilsystem.pas',
|
|
RegistryKeys in '..\..\..\..\..\common\windows\delphi\general\RegistryKeys.pas',
|
|
utilexecute in '..\..\..\..\..\common\windows\delphi\general\utilexecute.pas',
|
|
GetOsVersion in '..\..\..\..\..\common\windows\delphi\general\GetOsVersion.pas',
|
|
VersionInfo in '..\..\..\..\..\common\windows\delphi\general\VersionInfo.pas',
|
|
ExtShiftState in '..\..\..\..\..\common\windows\delphi\visualkeyboard\ExtShiftState.pas',
|
|
VisualKeyboardLoaderBinary in '..\..\..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardLoaderBinary.pas',
|
|
VisualKeyboardLoaderXML in '..\..\..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardLoaderXML.pas',
|
|
VisualKeyboardSaverBinary in '..\..\..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardSaverBinary.pas',
|
|
VisualKeyboardSaverXML in '..\..\..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardSaverXML.pas',
|
|
VKeyChars in '..\..\..\..\..\common\windows\delphi\general\VKeyChars.pas',
|
|
VKeys in '..\..\..\..\..\common\windows\delphi\general\VKeys.pas',
|
|
ErrorControlledRegistry in '..\..\..\..\..\common\windows\delphi\vcl\ErrorControlledRegistry.pas',
|
|
kmxfile in '..\..\..\..\..\common\windows\delphi\keyboards\kmxfile.pas',
|
|
CRC32 in '..\..\..\..\..\common\windows\delphi\general\CRC32.pas',
|
|
KeyNames in '..\..\..\..\..\common\windows\delphi\general\KeyNames.pas',
|
|
KeymanDeveloperOptions in '..\..\..\tike\main\KeymanDeveloperOptions.pas',
|
|
Keyman.System.PackageInfoRefreshKeyboards in '..\..\..\common\delphi\packages\Keyman.System.PackageInfoRefreshKeyboards.pas',
|
|
Keyman.System.KeyboardJSInfo in '..\..\..\common\delphi\keyboards\Keyman.System.KeyboardJSInfo.pas',
|
|
Keyman.System.KeyboardUtils in '..\..\..\common\delphi\keyboards\Keyman.System.KeyboardUtils.pas',
|
|
Keyman.System.KMXFileLanguages in '..\..\..\common\delphi\keyboards\Keyman.System.KMXFileLanguages.pas',
|
|
Keyman.System.Standards.ISO6393ToBCP47Registry in '..\..\..\..\..\common\windows\delphi\standards\Keyman.System.Standards.ISO6393ToBCP47Registry.pas',
|
|
Keyman.System.Standards.LCIDToBCP47Registry in '..\..\..\..\..\common\windows\delphi\standards\Keyman.System.Standards.LCIDToBCP47Registry.pas',
|
|
TempFileManager in '..\..\..\..\..\common\windows\delphi\general\TempFileManager.pas',
|
|
RedistFiles in '..\..\..\tike\main\RedistFiles.pas',
|
|
DebugPaths in '..\..\..\..\..\common\windows\delphi\general\DebugPaths.pas',
|
|
Upload_Settings in '..\..\..\..\..\common\windows\delphi\general\Upload_Settings.pas',
|
|
klog in '..\..\..\..\..\common\windows\delphi\general\klog.pas',
|
|
compile in '..\..\..\common\delphi\compiler\compile.pas',
|
|
Keyman.Developer.System.Project.kmnProjectFile in '..\..\..\tike\project\Keyman.Developer.System.Project.kmnProjectFile.pas',
|
|
Keyman.Developer.System.Project.kmnProjectFileAction in '..\..\..\tike\project\Keyman.Developer.System.Project.kmnProjectFileAction.pas',
|
|
Keyman.Developer.System.Project.Project in '..\..\..\tike\project\Keyman.Developer.System.Project.Project.pas',
|
|
Keyman.Developer.System.Project.ProjectFile in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectFile.pas',
|
|
Keyman.Developer.System.Project.ProjectFiles in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectFiles.pas',
|
|
Keyman.Developer.System.Project.ProjectFileType in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectFileType.pas',
|
|
mrulist in '..\..\..\tike\main\mrulist.pas',
|
|
kmxfileconsts in '..\..\..\..\..\common\windows\delphi\keyboards\kmxfileconsts.pas',
|
|
Keyman.Developer.System.Project.ProjectLoader in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectLoader.pas',
|
|
Keyman.Developer.System.Project.ProjectLog in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectLog.pas',
|
|
Keyman.Developer.System.Project.ProjectSaver in '..\..\..\tike\project\Keyman.Developer.System.Project.ProjectSaver.pas',
|
|
UKeymanTargets in '..\..\..\common\windows\delphi\general\UKeymanTargets.pas',
|
|
CompileKeymanWeb in '..\..\..\tike\compile\CompileKeymanWeb.pas',
|
|
CompileErrorCodes in '..\..\..\common\delphi\compiler\CompileErrorCodes.pas',
|
|
KeyboardParser in '..\..\..\tike\main\KeyboardParser.pas',
|
|
WindowsLanguages in '..\..\..\common\windows\delphi\general\WindowsLanguages.pas',
|
|
KeymanWebKeyCodes in '..\..\..\tike\compile\KeymanWebKeyCodes.pas',
|
|
kmxfileutils in '..\..\..\..\..\common\windows\delphi\keyboards\kmxfileutils.pas',
|
|
TikeUnicodeData in '..\..\..\tike\main\TikeUnicodeData.pas',
|
|
UnicodeData in '..\..\..\..\..\common\windows\delphi\charmap\UnicodeData.pas',
|
|
ADODB_TLB in '..\..\..\..\..\common\windows\delphi\tlb\ADODB_TLB.pas',
|
|
ADOX_TLB in '..\..\..\..\..\common\windows\delphi\tlb\ADOX_TLB.pas',
|
|
ttinfo in '..\..\..\..\..\common\windows\delphi\general\ttinfo.pas',
|
|
TouchLayoutDefinitions in '..\..\..\tike\oskbuilder\TouchLayoutDefinitions.pas',
|
|
TouchLayout in '..\..\..\tike\oskbuilder\TouchLayout.pas',
|
|
TouchLayoutUtils in '..\..\..\tike\oskbuilder\TouchLayoutUtils.pas',
|
|
KeyboardFonts in '..\..\..\common\windows\delphi\general\KeyboardFonts.pas',
|
|
Keyman.Developer.System.Project.kpsProjectFile in '..\..\..\tike\project\Keyman.Developer.System.Project.kpsProjectFile.pas',
|
|
Keyman.Developer.System.Project.kpsProjectFileAction in '..\..\..\tike\project\Keyman.Developer.System.Project.kpsProjectFileAction.pas',
|
|
CompilePackageInstaller in '..\..\..\common\delphi\compiler\CompilePackageInstaller.pas',
|
|
utilhttp in '..\..\..\..\..\common\windows\delphi\general\utilhttp.pas',
|
|
Keyman.System.LanguageCodeUtils in '..\..\..\..\..\common\windows\delphi\general\Keyman.System.LanguageCodeUtils.pas',
|
|
Keyman.System.RegExGroupHelperRSP19902 in '..\..\..\..\..\common\windows\delphi\vcl\Keyman.System.RegExGroupHelperRSP19902.pas',
|
|
DUnitX.Loggers.TeamCity in '..\..\..\..\..\common\windows\delphi\general\DUnitX.Loggers.TeamCity.pas',
|
|
BCP47Tag in '..\..\..\..\..\common\windows\delphi\general\BCP47Tag.pas',
|
|
Keyman.System.Standards.BCP47SubtagRegistry in '..\..\..\..\..\common\windows\delphi\standards\Keyman.System.Standards.BCP47SubtagRegistry.pas',
|
|
Keyman.System.Standards.BCP47SuppressScriptRegistry in '..\..\..\..\..\common\windows\delphi\standards\Keyman.System.Standards.BCP47SuppressScriptRegistry.pas',
|
|
Keyman.System.CanonicalLanguageCodeUtils in '..\..\..\..\..\common\windows\delphi\general\Keyman.System.CanonicalLanguageCodeUtils.pas',
|
|
TextFileFormat in '..\..\..\common\windows\delphi\general\TextFileFormat.pas',
|
|
Keyman.System.LexicalModelUtils in '..\..\..\common\delphi\lexicalmodels\Keyman.System.LexicalModelUtils.pas',
|
|
Keyman.System.PackageInfoRefreshLexicalModels in '..\..\..\common\delphi\packages\Keyman.System.PackageInfoRefreshLexicalModels.pas',
|
|
Keyman.System.Standards.LangTagsRegistry in '..\..\..\..\..\common\windows\delphi\standards\Keyman.System.Standards.LangTagsRegistry.pas',
|
|
Keyman.Developer.System.Project.UrlRenderer in '..\..\..\tike\project\Keyman.Developer.System.Project.UrlRenderer.pas',
|
|
KeymanPaths in '..\..\..\..\..\common\windows\delphi\general\KeymanPaths.pas',
|
|
Keyman.Developer.System.ValidateKpsFile in '..\..\..\common\delphi\compiler\Keyman.Developer.System.ValidateKpsFile.pas',
|
|
Keyman.Developer.System.KeymanDeveloperPaths in '..\..\..\tike\main\Keyman.Developer.System.KeymanDeveloperPaths.pas';
|
|
|
|
var
|
|
runner : ITestRunner;
|
|
results : IRunResults;
|
|
logger : ITestLogger;
|
|
nunitLogger : ITestLogger;
|
|
begin
|
|
{$IFDEF TESTINSIGHT}
|
|
TestInsight.DUnitX.RunRegisteredTests;
|
|
exit;
|
|
{$ENDIF}
|
|
try
|
|
//Check command line options, will exit if invalid
|
|
TDUnitX.CheckCommandLine;
|
|
//Create the test runner
|
|
runner := TDUnitX.CreateRunner;
|
|
//Tell the runner to use RTTI to find Fixtures
|
|
runner.UseRTTI := True;
|
|
//tell the runner how we will log things
|
|
//Log to the console window
|
|
logger := TDUnitXConsoleLogger.Create(true);
|
|
runner.AddLogger(logger);
|
|
//Generate an NUnit compatible XML File
|
|
nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
|
|
runner.AddLogger(nunitLogger);
|
|
runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests;
|
|
|
|
//Run tests
|
|
results := runner.Execute;
|
|
if not results.AllPassed then
|
|
System.ExitCode := EXIT_ERRORS;
|
|
|
|
{$IFNDEF CI}
|
|
//We don't want this happening when running under CI.
|
|
if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
|
|
begin
|
|
System.Write('Done.. press <Enter> key to quit.');
|
|
System.Readln;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
DUnitX.Loggers.TeamCity.ReportToTeamCity;
|
|
except
|
|
on E: Exception do
|
|
System.Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
end.
|