FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
DelphiCodeCoverage/Test/CodeCoverageTests.dpr at master · DelphiCodeCoverage/DelphiCodeCoverage · GitHub
Uh oh!
There was an error while loading.
Please reload this page
.
DelphiCodeCoverage
/
DelphiCodeCoverage
Public
Notifications
You must be signed in to change notification settings
Fork
39
Star
94
Code
Issues
12
Pull requests
4
Actions
Projects
Security and quality
0
Insights
Additional navigation options
Code
Issues
Pull requests
Actions
Projects
Security and quality
Insights
Expand file tree
Breadcrumbs
DelphiCodeCoverage
/
Test
/
CodeCoverageTests.dpr
Copy path
More file actions
More file actions
Latest commit
History
History
History
79 lines (75 loc) · 2.91 KB
Breadcrumbs
DelphiCodeCoverage
/
Test
/
CodeCoverageTests.dpr
Copy path
File metadata and controls
79 lines (75 loc) · 2.91 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
(*
*********************************************************************
*)
(*
Delphi Code Coverage
*)
(*
*)
(*
A quick hack of a Code Coverage Tool for Delphi
*)
(*
by Christer Fahlgren and Nick Ring
*)
(*
*)
(*
This Source Code Form is subject to the terms of the Mozilla Public
*)
(*
License, v. 2.0. If a copy of the MPL was not distributed with this
*)
(*
file, You can obtain one at http://mozilla.org/MPL/2.0/.
*)
program
CodeCoverageTests;
{
$IFDEF CONSOLE_TESTRUNNER
}
{
$APPTYPE CONSOLE
}
{
$ENDIF
}
uses
Classes,
SysUtils,
Windows,
Forms,
TestFramework,
GUITestRunner,
XmlTestRunner,
CoverageConfiguration
in
'
..\Source\CoverageConfiguration.pas
'
,
CoverageConfigurationTest
in
'
CoverageConfigurationTest.pas
'
,
MockCommandLineProvider
in
'
MockCommandLineProvider.pas
'
,
ClassInfoUnitTest
in
'
ClassInfoUnitTest.pas
'
,
ClassInfoUnit
in
'
..\Source\ClassInfoUnit.pas
'
,
uConsoleOutput
in
'
..\Source\uConsoleOutput.pas
'
,
EmmaFileHelper
in
'
..\Source\EmmaFileHelper.pas
'
,
EmmaDataInputTests
in
'
EmmaDataInputTests.pas
'
,
EmmaDataOutputTests
in
'
EmmaDataOutputTests.pas
'
,
ModuleNameSpaceUnit
in
'
..\Source\ModuleNameSpaceUnit.pas
'
,
I_CoverageConfiguration
in
'
..\Source\I_CoverageConfiguration.pas
'
,
I_LogManager
in
'
..\Source\I_LogManager.pas
'
,
I_Logger
in
'
..\Source\I_Logger.pas
'
,
I_ParameterProvider
in
'
..\Source\I_ParameterProvider.pas
'
,
LoggerTextFile
in
'
..\Source\LoggerTextFile.pas
'
,
LoggerAPI
in
'
..\Source\LoggerAPI.pas
'
,
I_BreakPoint
in
'
..\Source\I_BreakPoint.pas
'
,
I_Debugger
in
'
..\Source\I_Debugger.pas
'
,
I_DebugModule
in
'
..\Source\I_DebugModule.pas
'
,
I_DebugProcess
in
'
..\Source\I_DebugProcess.pas
'
,
I_DebugThread
in
'
..\Source\I_DebugThread.pas
'
,
CoverageStatsMergeTests
in
'
CoverageStatsMergeTests.pas
'
,
CoverageStats
in
'
..\Source\CoverageStats.pas
'
,
I_CoverageStats
in
'
..\Source\I_CoverageStats.pas
'
,
XMLCoverageReport
in
'
..\Source\XMLCoverageReport.pas
'
,
I_Report
in
'
..\Source\I_Report.pas
'
;
{
$R *.RES
}
begin
try
Application.Initialize;
if
IsConsole
then
XmlTestRunner.RunTestsAndClose
else
GUITestRunner.RunRegisteredTests;
except
on E: Exception
do
begin
if
IsConsole
then
begin
writeln(
'
Exception caught:
'
);
writeln(#
9
+ E.ClassName);
writeln(#
9
+ E.Message);
end
else
begin
Application.MessageBox(PChar(E.ClassName +
System.sLineBreak +
E.Message),
'
Exception Caught
'
,
MB_ICONERROR
or
MB_OK);
end
;
end
;
end
;
end
.
Back
|
FazBrowse Home
|
New Git URL