1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
{ -*- compile-command: "./compile_console.sh" -*- }
program test_castle_game_engine;
{ Define this if you use text runner for our tests.
Usually this is automatically defined by calling compile_console.sh. }
{ $define TEXT_RUNNER}
{$mode objfpc}{$H+}
uses
{$ifdef TEXT_RUNNER}
CastleConsoleTestRunner, ConsoleTestRunner,
{$else}
Interfaces, Forms, GuiTestRunner, castle_base,
{$endif}
CastleWarnings,
{ Test units (their order determines default tests order) }
TestCastleUtils,
TestRectangles,
TestGenericLists,
TestOSSpecific,
TestBasicLists,
TestCastleClassUtils,
TestCastleVectors,
TestCastleColors,
TestKeysMouse,
TestFPImage,
TestImages,
TestOldFPCBugs,
TestCastleBoxes,
TestCastleFrustum,
TestCastle3D,
TestParsingParameters,
TestCameras,
TestX3DNodes,
TestX3DNodesOptimizedProxy,
TestScene,
TestSceneCore,
TestVideos,
{ Not used anymore --- IntRects stuff is internal inside CastleMessages,
and honestly not important enough.
TestIntRects, }
TestSpaceFillingCurves,
TestObjectsList,
TestCastleStringUtils,
TestCastleScript,
TestCastleScriptVectors,
TestCubeMaps,
TestShadowFields,
TestGLVersion,
TestURLUtils,
TestDDS,
TestCastleTriangulate,
TestGame,
TestURIUtils,
TestCastleXMLUtils
{$ifdef TEXT_RUNNER} {$ifndef NO_WINDOW_SYSTEM},
{ These require CastleWindow initializing it's own window. So they
1. conflict with LCL windows (so only when TEXT_RUNNER)
2. are allowed only when graphical window system (like X on Unix)
is available (so not when NO_WINDOW_SYSTEM,
e.g. do not do them when running inside non-X ssh session or cron) }
TestCastleWindow,
TestOpeningAndRendering3D,
TestCastleGLFonts,
TestContainer
{$endif} {$endif}
{ Stuff requiring Lazarus LCL. }
{$ifndef TEXT_RUNNER},
TestCastleLCLUtils
{$endif};
{$ifdef TEXT_RUNNER}
var
Application: TCastleConsoleTestRunner;
{$endif}
{var
T: TTestCastleTriangulate;}
begin
OnWarning := @OnWarningWrite;
{ Sometimes it's comfortable to just run the test directly, to get
full backtrace from FPC.
T := TTestCastleTriangulate.Create;
T.TestTriangulateFace;
T.Free;
Exit;}
{$ifdef TEXT_RUNNER}
Application := TCastleConsoleTestRunner.Create(nil);
Application.Title := 'Castle Game Engine test runner (using fpcunit)';
DefaultFormat := fPlain;
{$endif}
Application.Initialize;
{$ifndef TEXT_RUNNER}
Application.CreateForm(TGuiTestRunner, TestRunner);
{$endif}
Application.Run;
{$ifdef TEXT_RUNNER}
Application.Free;
{$endif}
end.
|
