Email服务器

开发平台：

Delphi

Project1Test.dpr：源码内容

							{$APPTYPE CONSOLE}
program Project1Test;
uses
  TextTestRunner,
  TestFramework,
  Unit1Test,
  Unit2Test,
  SysUtils;
{$R *.res}
var
  ExitBehavior: TRunnerExitBehavior;
begin
  // sample test code will randomly pass or fail
  Randomize;
  WriteLn('To run with rxbPause, use -p switch');
  WriteLn('To run with rxbHaltOnFailures, use -h switch');
  WriteLn('No switch runs as rxbContinue');
  if FindCmdLineSwitch('p', ['-', '/'], true) then
    ExitBehavior := rxbPause
  else if FindCmdLineSwitch('h', ['-', '/'], true) then
    ExitBehavior := rxbHaltOnFailures
  else
    ExitBehavior := rxbContinue;
  TextTestRunner.RunRegisteredTests(ExitBehavior);
end.

						