Final Delphi+part of FPC

FPCTest/fpcunitproject1.lpr

@@ -0,0 +1,25 @@
+program fpcunitproject1;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, consoletestrunner, TestCase1;
+
+type
+
+  { TMyTestRunner }
+
+  TMyTestRunner = class(TTestRunner)
+  protected
+  // override the protected methods of TTestRunner to customize its behavior
+  end;
+
+var
+  Application: TMyTestRunner;
+
+begin
+  Application := TMyTestRunner.Create(nil);
+  Application.Initialize;
+  Application.Run;
+  Application.Free;
+end.