forked from frantic/delphi-tdd-example
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathRSSReaderTests.dpr
More file actions
49 lines (42 loc) · 1.34 KB
/
RSSReaderTests.dpr
File metadata and controls
49 lines (42 loc) · 1.34 KB
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
program RSSReaderTests;
{
Delphi DUnit Test Project
-------------------------
This project contains the DUnit test framework and the GUI/Console test runners.
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
to use the console test runner. Otherwise the GUI test runner will be used by
default.
}
{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
Forms,
TestFramework,
GUITestRunner,
TextTestRunner,
TestHttpClient in 'test\TestHttpClient.pas',
TestRSSParser in 'test\TestRSSParser.pas',
TestRSSFeedModel in 'test\TestRSSFeedModel.pas',
HttpClient in 'src\HttpClient.pas',
RssModel in 'src\RssModel.pas',
RssParser in 'src\RssParser.pas',
IndyHttpClient in 'src\IndyHttpClient.pas',
XmlDocRssParser in 'src\XmlDocRssParser.pas',
TestSyncManager in 'test\TestSyncManager.pas',
SyncManager in 'src\SyncManager.pas',
RssStorage in 'src\RssStorage.pas',
UINotification in 'src\UINotification.pas',
FakeHttpClient in 'test\FakeHttpClient.pas',
FakeRSSParser in 'test\FakeRSSParser.pas',
FakeRSSStorage in 'test\FakeRSSStorage.pas',
FakeUINotification in 'test\FakeUINotification.pas';
{$R *.RES}
begin
Application.Initialize;
if IsConsole then
with TextTestRunner.RunRegisteredTests(rxbHaltOnFailures) do
Free
else
GUITestRunner.RunRegisteredTests;
end.