b3110a90cc
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5783 8e941d3f-bd1b-0410-a28a-d453659cc2b4
33 lines
1.0 KiB
ObjectPascal
33 lines
1.0 KiB
ObjectPascal
program spreadtestgui;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{.$DEFINE HEAPTRC} // Instead of using -gh activate this to write the heap trace to file
|
|
|
|
uses
|
|
{$IFDEF HEAPTRC}
|
|
HeapTrc, SysUtils,
|
|
{$ENDIF}
|
|
Interfaces, Forms, GuiTestRunner, datetests, stringtests, numberstests,
|
|
manualtests, testsutility, internaltests, formattests, colortests, fonttests,
|
|
optiontests, numformatparsertests, formulatests, rpnFormulaUnit, exceltests,
|
|
emptycelltests, errortests, virtualmodetests, insertdeletetests,
|
|
celltypetests, sortingtests, copytests, enumeratortests, commenttests,
|
|
hyperlinktests, pagelayouttests, protectiontests;
|
|
|
|
begin
|
|
{$IFDEF HEAPTRC}
|
|
// Assuming your build mode sets -dDEBUG in Project Options/Other when defining -gh
|
|
// This avoids interference when running a production/default build without -gh
|
|
|
|
if FileExists('heap.trc') then
|
|
DeleteFile('heap.trc');
|
|
SetHeapTraceOutput('heap.trc');
|
|
{$ENDIF HEAPTRC}
|
|
|
|
Application.Initialize;
|
|
Application.CreateForm(TGuiTestRunner, TestRunner);
|
|
Application.Run;
|
|
end.
|
|
|