RunTest Routine |
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; |
|