FazBrowse GitHub Viewer | Trending |
URL:
| Home
Tools: [Download Repo ZIP]   [Original HTTPS Page]

* Add missing spaces to some output messages by Fr0sT-Brutal · Pull Request #7 · DelphiCodeCoverage/DelphiCodeCoverage · GitHub

/ DelphiCodeCoverage Public

* Add missing spaces to some output messages #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Laurensvanrun merged 1 commit into from
Aug 10, 2021
Conversation 0 Commits 1 Checks 0 Files changed
Merged

* Add missing spaces to some output messages #7

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension .pas  (3) All 1 file type selected
Viewed files
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Unified
Split
Hide whitespace
Diff view
Unified
Split
Hide whitespace
6 changes: 3 additions & 3 deletions Source/CoverageConfiguration.pas
Show comments
View file
Open in desktop
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
Show hidden characters
Original file line number Diff line number Diff line change
Expand Up @@ -313,7 +313,7 @@ procedure TCoverageConfiguration.OpenInputFileForReading(const AFileName: string
except
on E: EInOutError do
begin
ConsoleOutput('Could not open:' + AFileName);
ConsoleOutput('Could not open: ' + AFileName);
raise ;
end;
end;
Expand Down Expand Up @@ -504,10 +504,10 @@ procedure TCoverageConfiguration.LogTracking;
CurrentUnit: string;
begin
for CurrentUnit in FUnitsStrLst do
VerboseOutput('Will track coverage for:' + CurrentUnit);
VerboseOutput('Will track coverage for: ' + CurrentUnit);

for CurrentUnit in FExcludedUnitsStrLst do
VerboseOutput('Exclude from coverage tracking for:' + CurrentUnit);
VerboseOutput('Exclude from coverage tracking for: ' + CurrentUnit);
end;

function TCoverageConfiguration.ParseParameter(const AParameter: Integer): string;
Expand Down
6 changes: 3 additions & 3 deletions Source/Debugger.pas
Show comments
View file
Open in desktop
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
Show hidden characters
Original file line number Diff line number Diff line change
Expand Up @@ -182,7 +182,7 @@ destructor TDebugger.Destroy;

procedure TDebugger.PrintUsage;
begin
ConsoleOutput('Usage:CodeCoverage.exe [switches]');
ConsoleOutput('Usage: CodeCoverage.exe [switches]');
ConsoleOutput('List of switches:');
// --------------------------------------------------------------------------
ConsoleOutput('');
Expand Down Expand Up @@ -309,7 +309,7 @@ procedure TDebugger.Start;
except
on E: EConfigurationException do
begin
ConsoleOutput('Exception parsing the command line:' + E.message);
ConsoleOutput('Exception parsing the command line: ' + E.message);
PrintUsage;
end;
on E: Exception do
Expand Down Expand Up @@ -476,7 +476,7 @@ procedure TDebugger.Debug;
ConsoleOutput(
'Unable to start executable "' +
FCoverageConfiguration.ExeFileName + '"');
ConsoleOutput('Error :' + I_LogManager.LastErrorInfo);
ConsoleOutput('Error : ' + I_LogManager.LastErrorInfo);
end;
end
else
Expand Down
20 changes: 10 additions & 10 deletions Source/HTMLCoverageReport.pas
Show comments
View file
Open in desktop
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
Show hidden characters
Original file line number Diff line number Diff line change
Expand Up @@ -186,9 +186,9 @@ function THTMLCoverageReport.GenerateModuleReport(
Result.HasFile := True;
except
on E: EFileStreamError do
ConsoleOutput('Exception during generation of unit coverage for:' + ACoverageModule.Name +
ConsoleOutput('Exception during generation of unit coverage for: ' + ACoverageModule.Name +
' could not write to: ' + OutputFileName +
' exception:' + E.message)
' exception: ' + E.message)
else
raise;
end;
Expand Down Expand Up @@ -216,10 +216,10 @@ function THTMLCoverageReport.GenerateUnitReport(
on E: EFileStreamError do
begin
ConsoleOutput(
'Exception during generation of unit coverage for:' + ACoverageUnit.Name
+ ' could not open:' + SourceFileName
'Exception during generation of unit coverage for: ' + ACoverageUnit.Name
+ ' could not open: ' + SourceFileName
);
ConsoleOutput('Current directory:' + GetCurrentDir);
ConsoleOutput('Current directory: ' + GetCurrentDir);
raise;
end;
end;
Expand All @@ -244,10 +244,10 @@ function THTMLCoverageReport.GenerateUnitReport(
on E: EFileStreamError do
begin
ConsoleOutput(
'Exception during generation of unit coverage for:' + ACoverageUnit.Name
+ ' could not write to:' + OutputFileName
'Exception during generation of unit coverage for: ' + ACoverageUnit.Name
+ ' could not write to: ' + OutputFileName
);
ConsoleOutput('Current directory:' + GetCurrentDir);
ConsoleOutput('Current directory: ' + GetCurrentDir);
raise;
end;
end;
Expand All @@ -258,8 +258,8 @@ function THTMLCoverageReport.GenerateUnitReport(
except
on E: EFileStreamError do
ConsoleOutput(
'Exception during generation of unit coverage for:' + ACoverageUnit.Name
+ ' exception:' + E.message
'Exception during generation of unit coverage for: ' + ACoverageUnit.Name
+ ' exception: ' + E.message
)
else
raise;
Expand Down
Back | FazBrowse Home | New Git URL