FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
DelphiCodeCoverage/Source/CodeCoverage.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
/
Source
/
CodeCoverage.dpr
Copy path
More file actions
More file actions
Latest commit
History
History
History
72 lines (69 loc) · 2.66 KB
Breadcrumbs
DelphiCodeCoverage
/
Source
/
CodeCoverage.dpr
Copy path
File metadata and controls
72 lines (69 loc) · 2.66 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
(*
*********************************************************************
*)
(*
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
CodeCoverage;
{
$APPTYPE CONSOLE
}
uses
System.SysUtils,
BreakPoint
in
'
BreakPoint.pas
'
,
BreakpointList
in
'
BreakpointList.pas
'
,
CommandLineProvider
in
'
CommandLineProvider.pas
'
,
CoverageConfiguration
in
'
CoverageConfiguration.pas
'
,
CoverageStats
in
'
CoverageStats.pas
'
,
HTMLCoverageReport
in
'
HTMLCoverageReport.pas
'
,
Debugger
in
'
Debugger.pas
'
,
DebugProcess
in
'
DebugProcess.pas
'
,
DebugThread
in
'
DebugThread.pas
'
,
I_BreakPoint
in
'
I_BreakPoint.pas
'
,
I_BreakpointList
in
'
I_BreakpointList.pas
'
,
I_CoverageConfiguration
in
'
I_CoverageConfiguration.pas
'
,
I_CoverageStats
in
'
I_CoverageStats.pas
'
,
I_Debugger
in
'
I_Debugger.pas
'
,
I_DebugProcess
in
'
I_DebugProcess.pas
'
,
I_DebugThread
in
'
I_DebugThread.pas
'
,
I_Logger
in
'
I_Logger.pas
'
,
I_LogManager
in
'
I_LogManager.pas
'
,
I_ParameterProvider
in
'
I_ParameterProvider.pas
'
,
I_Report
in
'
I_Report.pas
'
,
LoggerAPI
in
'
LoggerAPI.pas
'
,
LoggerTextFile
in
'
LoggerTextFile.pas
'
,
LogManager
in
'
LogManager.pas
'
,
XMLCoverageReport
in
'
XMLCoverageReport.pas
'
,
ClassInfoUnit
in
'
ClassInfoUnit.pas
'
,
EmmaCoverageData
in
'
EmmaCoverageData.pas
'
,
EmmaDataFile
in
'
EmmaDataFile.pas
'
,
EmmaFileHelper
in
'
EmmaFileHelper.pas
'
,
EmmaMergable
in
'
EmmaMergable.pas
'
,
EmmaMetaData
in
'
EmmaMetaData.pas
'
,
EmmaCoverageFileUnit
in
'
EmmaCoverageFileUnit.pas
'
,
DebugModule
in
'
DebugModule.pas
'
,
I_DebugModule
in
'
I_DebugModule.pas
'
,
ModuleNameSpaceUnit
in
'
ModuleNameSpaceUnit.pas
'
,
uConsoleOutput
in
'
uConsoleOutput.pas
'
,
HtmlHelper
in
'
HtmlHelper.pas
'
,
JclMapScannerHelper
in
'
JclMapScannerHelper.pas
'
,
JacocoCoverageFileUnit
in
'
JacocoCoverageFileUnit.pas
'
;
{
$R *.res
}
var
//
Delphi 7 leaks interfaces from here :-(
ADebugger: TDebugger;
{
$define FullDebugMode
}
begin
try
ADebugger := TDebugger.Create;
try
ADebugger.Start();
finally
ADebugger.Free;
end
;
except
on E: Exception
do
WriteLn(E.ClassName,
'
:
'
, E.message);
end
;
end
.
Back
|
FazBrowse Home
|
New Git URL