Added D13 support to DPM

Author: vincentparrett

Examples/DUnitXExamples_D12Athens.dpr

@@ -0,0 +1,119 @@
+program DUnitXExamples_D12Athens;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}
+{$STRONGLINKTYPES ON}
+
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF}
+  System.Diagnostics,
+  DUnitX.Examples.General in 'DUnitX.Examples.General.pas',
+  DUnitX.ConsoleWriter.Base in '..\Source\DUnitX.ConsoleWriter.Base.pas',
+  DUnitX.DUnitCompatibility in '..\Source\DUnitX.DUnitCompatibility.pas',
+  DUnitX.Generics in '..\Source\DUnitX.Generics.pas',
+  DUnitX.InternalInterfaces in '..\Source\DUnitX.InternalInterfaces.pas',
+  DUnitX.ServiceLocator in '..\Source\DUnitX.ServiceLocator.pas',
+  DUnitX.Loggers.Console in '..\Source\DUnitX.Loggers.Console.pas',
+  DUnitX.Loggers.Text in '..\Source\DUnitX.Loggers.Text.pas',
+  DUnitX.Loggers.XML.NUnit in '..\Source\DUnitX.Loggers.XML.NUnit.pas',
+  DUnitX.Loggers.XML.xUnit in '..\Source\DUnitX.Loggers.XML.xUnit.pas',
+  DUnitX.MacOS.Console in '..\Source\DUnitX.MacOS.Console.pas',
+  DUnitX.Test in '..\Source\DUnitX.Test.pas',
+  DUnitX.TestFixture in '..\Source\DUnitX.TestFixture.pas',
+  DUnitX.TestFramework in '..\Source\DUnitX.TestFramework.pas',
+  DUnitX.TestResult in '..\Source\DUnitX.TestResult.pas',
+  DUnitX.RunResults in '..\Source\DUnitX.RunResults.pas',
+  DUnitX.TestRunner in '..\Source\DUnitX.TestRunner.pas',
+  DUnitX.Utils in '..\Source\DUnitX.Utils.pas',
+  DUnitX.Utils.XML in '..\Source\DUnitX.Utils.XML.pas',
+  DUnitX.WeakReference in '..\Source\DUnitX.WeakReference.pas',
+  DUnitX.Windows.Console in '..\Source\DUnitX.Windows.Console.pas',
+  DUnitX.StackTrace.EurekaLog7 in '..\Source\DUnitX.StackTrace.EurekaLog7.pas',
+  NonNamespacedExample in 'NonNamespacedExample.pas',
+  DUnitX.Examples.EqualityAsserts in 'DUnitX.Examples.EqualityAsserts.pas',
+  DUnitX.FixtureResult in '..\Source\DUnitX.FixtureResult.pas',
+  DUnitX.Loggers.Null in '..\Source\DUnitX.Loggers.Null.pas',
+  DUnitX.MemoryLeakMonitor.Default in '..\Source\DUnitX.MemoryLeakMonitor.Default.pas',
+  DUnitX.Extensibility in '..\Source\DUnitX.Extensibility.pas',
+  DUnitX.CommandLine.OptionDef in '..\Source\DUnitX.CommandLine.OptionDef.pas',
+  DUnitX.CommandLine.Options in '..\Source\DUnitX.CommandLine.Options.pas',
+  DUnitX.CommandLine.Parser in '..\Source\DUnitX.CommandLine.Parser.pas',
+  DUnitX.FixtureProvider in '..\Source\DUnitX.FixtureProvider.pas',
+  DUnitX.Timeout in '..\Source\DUnitX.Timeout.pas',
+  DUnitX.Attributes in '..\Source\DUnitX.Attributes.pas',
+  DUnitX.Linux.Console in '..\Source\DUnitX.Linux.Console.pas',
+  ProviderExample in 'ProviderExample.pas',
+  DUnitX.FixtureBuilder in '..\Source\DUnitX.FixtureBuilder.pas',
+  DUnitX.FilterBuilder in '..\Source\DUnitX.FilterBuilder.pas',
+  DUnitX.Filters in '..\Source\DUnitX.Filters.pas',
+  DUnitX.Loggers.XML.JUnit in '..\Source\DUnitX.Loggers.XML.JUnit.pas',
+  DUnitX.OptionsDefinition in '..\Source\DUnitX.OptionsDefinition.pas';
+
+  { keep comment here to protect the following conditional from being removed by the IDE when adding a unit }
+{$IFNDEF TESTINSIGHT}
+var
+  runner : ITestRunner;
+  results : IRunResults;
+  logger : ITestLogger;
+  stopWatch : TStopWatch;
+  {$IFDEF CI}
+  nunitLogger : ITestLogger;
+  {$ENDIF}
+{$ENDIF}
+begin
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX.RunRegisteredTests;
+  {$ELSE}
+
+  try
+    //Check command line options, will exit if invalid
+    TDUnitX.CheckCommandLine;
+    //Create the runner
+    runner := TDUnitX.CreateRunner;
+    //Tell the runner to use RTTI to find Fixtures
+    runner.UseRTTI := True;
+    //When true, Assertions must be made during tests;
+    runner.FailsOnNoAsserts := False;
+    {$IFNDEF CI}
+    TDUnitX.Options.ExitBehavior := TDUnitXExitBehavior.Pause;
+    {$ELSE}
+    //no point logging to the console, CI server will use the xml results and exit code.
+    TDUnitX.Options.ConsoleMode := TDunitXConsoleMode.Off;
+    {$ENDIF}
+    //tell the runner how we will log things
+    //Log to the console window if desired
+    if TDUnitX.Options.ConsoleMode <> TDunitXConsoleMode.Off then
+    begin
+      logger := TDUnitXConsoleLogger.Create(TDUnitX.Options.ConsoleMode = TDunitXConsoleMode.Quiet);
+      runner.AddLogger(logger);
+    end;
+
+    {$IFDEF CI}
+    nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
+    runner.AddLogger(nunitLogger);
+    {$ENDIF}
+
+    //Run tests
+    stopWatch := TStopWatch.StartNew;
+    results := runner.Execute;
+    stopWatch.Stop;
+
+    {$IFNDEF CI}
+    if TDUnitX.Options.ConsoleMode <> TDunitXConsoleMode.Off then
+      System.Write(Format('Done in %d ms.. press <Enter> key to quit.', [stopWatch.ElapsedMilliseconds]));
+
+    //We don't want this happening when running under CI.
+    if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
+      System.Readln;
+    {$ENDIF}
+
+  except
+    on E: Exception do
+      System.Writeln(E.ClassName, ': ', E.Message);
+  end;
+  {$ENDIF}
+end.