mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-07 01:15:33 +00:00
25 lines
548 B
ObjectPascal
25 lines
548 B
ObjectPascal
unit DUnitX.Loggers.TeamCity;
|
|
|
|
interface
|
|
|
|
procedure ReportToTeamCity;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
procedure ReportToTeamCity;
|
|
var
|
|
KeymanRoot: string;
|
|
ReportPath: string;
|
|
begin
|
|
if GetEnvironmentVariable('TEAMCITY_VERSION') <> '' then
|
|
begin
|
|
KeymanRoot := ExcludeTrailingPathDelimiter(GetEnvironmentVariable('KEYMAN_ROOT'));
|
|
ReportPath := ExtractRelativePath(KeymanRoot, ExtractFilePath(ParamStr(0)) + 'dunitx-results.xml');
|
|
writeln('##teamcity[importData type=''nunit'' path='''+ReportPath+''']');
|
|
end;
|
|
end;
|
|
|
|
end.
|