1*16467b97STreehugger Robotprogram TestDriver; 2*16467b97STreehugger Robot{ 3*16467b97STreehugger Robot 4*16467b97STreehugger Robot Delphi DUnit Test Project 5*16467b97STreehugger Robot ------------------------- 6*16467b97STreehugger Robot This project contains the DUnit test framework and the GUI/Console test runners. 7*16467b97STreehugger Robot Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options 8*16467b97STreehugger Robot to use the console test runner. Otherwise the GUI test runner will be used by 9*16467b97STreehugger Robot default. 10*16467b97STreehugger Robot 11*16467b97STreehugger Robot} 12*16467b97STreehugger Robot 13*16467b97STreehugger Robot{$IFDEF CONSOLE_TESTRUNNER} 14*16467b97STreehugger Robot{$APPTYPE CONSOLE} 15*16467b97STreehugger Robot{$ENDIF} 16*16467b97STreehugger Robot 17*16467b97STreehugger Robotuses 18*16467b97STreehugger Robot Forms, 19*16467b97STreehugger Robot TestFramework, 20*16467b97STreehugger Robot GUITestRunner, 21*16467b97STreehugger Robot TextTestRunner, 22*16467b97STreehugger Robot Antlr.Runtime.Tools.Tests in 'Antlr.Runtime.Tools.Tests.pas', 23*16467b97STreehugger Robot Antlr.Runtime.Collections.Tests in 'Antlr.Runtime.Collections.Tests.pas', 24*16467b97STreehugger Robot Antlr.Runtime.Tree.Tests in 'Antlr.Runtime.Tree.Tests.pas', 25*16467b97STreehugger Robot Antlr.Runtime.Tests in 'Antlr.Runtime.Tests.pas'; 26*16467b97STreehugger Robot 27*16467b97STreehugger Robot{$R *.RES} 28*16467b97STreehugger Robot 29*16467b97STreehugger Robotbegin 30*16467b97STreehugger Robot ReportMemoryLeaksOnShutdown := True; 31*16467b97STreehugger Robot Application.Initialize; 32*16467b97STreehugger Robot if IsConsole then 33*16467b97STreehugger Robot TextTestRunner.RunRegisteredTests 34*16467b97STreehugger Robot else 35*16467b97STreehugger Robot GUITestRunner.RunRegisteredTests; 36*16467b97STreehugger Robotend. 37*16467b97STreehugger Robot 38