RunTest Routine
Run the given test suite

Unit
TextTestRunner

Declaration
Function RunTest(suite :ITest; exitBehavior :TRunnerExitBehavior = rxbContinue): TTestResult;

Implementation

function RunTest(suite :ITest; exitBehavior :TRunnerExitBehavior = rxbContinue) :TTestResult;
begin
  Result := RunTest(suite, [TTextTestListener.Create]);
  case exitBehavior of
    rxbPause:
      try
        writeln('Press <RETURN> to continue.');
        readln
      except
      end;
    rxbHaltOnFailures:
      with Result do
      begin
        if not WasSuccessful then
          System.Halt(ErrorCount+FailureCount);
      end
    // else fall through
  end;
End;


HTML generated by Time2HELP
http://www.time2help.com