diff --git a/Source/CoverageConfiguration.pas b/Source/CoverageConfiguration.pas index c9a84a6..f96c030 100644 --- a/Source/CoverageConfiguration.pas +++ b/Source/CoverageConfiguration.pas @@ -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; @@ -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; diff --git a/Source/Debugger.pas b/Source/Debugger.pas index 7792edb..34357ec 100644 --- a/Source/Debugger.pas +++ b/Source/Debugger.pas @@ -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(''); @@ -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 @@ -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 diff --git a/Source/HTMLCoverageReport.pas b/Source/HTMLCoverageReport.pas index 9f97095..dfece46 100644 --- a/Source/HTMLCoverageReport.pas +++ b/Source/HTMLCoverageReport.pas @@ -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; @@ -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; @@ -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; @@ -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;