Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
unit googletoolresults;
{$MODE objfpc}
{$H+}
interface
uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
TAny = Class;
TDuration = Class;
TExecution = Class;
TFailureDetail = Class;
TFileReference = Class;
THistory = Class;
TImage = Class;
TInconclusiveDetail = Class;
TListExecutionsResponse = Class;
TListHistoriesResponse = Class;
TListStepThumbnailsResponse = Class;
TListStepsResponse = Class;
TOutcome = Class;
TProjectSettings = Class;
TPublishXunitXmlFilesRequest = Class;
TSkippedDetail = Class;
TStackTrace = Class;
TStatus = Class;
TStep = Class;
TStepDimensionValueEntry = Class;
TStepLabelsEntry = Class;
TSuccessDetail = Class;
TTestCaseReference = Class;
TTestExecutionStep = Class;
TTestIssue = Class;
TTestSuiteOverview = Class;
TTestTiming = Class;
TThumbnail = Class;
TTimestamp = Class;
TToolExecution = Class;
TToolExecutionStep = Class;
TToolExitCode = Class;
TToolOutputReference = Class;
TAnyArray = Array of TAny;
TDurationArray = Array of TDuration;
TExecutionArray = Array of TExecution;
TFailureDetailArray = Array of TFailureDetail;
TFileReferenceArray = Array of TFileReference;
THistoryArray = Array of THistory;
TImageArray = Array of TImage;
TInconclusiveDetailArray = Array of TInconclusiveDetail;
TListExecutionsResponseArray = Array of TListExecutionsResponse;
TListHistoriesResponseArray = Array of TListHistoriesResponse;
TListStepThumbnailsResponseArray = Array of TListStepThumbnailsResponse;
TListStepsResponseArray = Array of TListStepsResponse;
TOutcomeArray = Array of TOutcome;
TProjectSettingsArray = Array of TProjectSettings;
TPublishXunitXmlFilesRequestArray = Array of TPublishXunitXmlFilesRequest;
TSkippedDetailArray = Array of TSkippedDetail;
TStackTraceArray = Array of TStackTrace;
TStatusArray = Array of TStatus;
TStepArray = Array of TStep;
TStepDimensionValueEntryArray = Array of TStepDimensionValueEntry;
TStepLabelsEntryArray = Array of TStepLabelsEntry;
TSuccessDetailArray = Array of TSuccessDetail;
TTestCaseReferenceArray = Array of TTestCaseReference;
TTestExecutionStepArray = Array of TTestExecutionStep;
TTestIssueArray = Array of TTestIssue;
TTestSuiteOverviewArray = Array of TTestSuiteOverview;
TTestTimingArray = Array of TTestTiming;
TThumbnailArray = Array of TThumbnail;
TTimestampArray = Array of TTimestamp;
TToolExecutionArray = Array of TToolExecution;
TToolExecutionStepArray = Array of TToolExecutionStep;
TToolExitCodeArray = Array of TToolExitCode;
TToolOutputReferenceArray = Array of TToolOutputReference;
//Anonymous types, using auto-generated names
TListExecutionsResponseTypeexecutionsArray = Array of TExecution;
TListHistoriesResponseTypehistoriesArray = Array of THistory;
TListStepThumbnailsResponseTypethumbnailsArray = Array of TImage;
TListStepsResponseTypestepsArray = Array of TStep;
TPublishXunitXmlFilesRequestTypexunitXmlFilesArray = Array of TFileReference;
TStatusTypedetailsArray = Array of TAny;
TStepTypedimensionValueArray = Array of TStepDimensionValueEntry;
TStepTypelabelsArray = Array of TStepLabelsEntry;
TTestExecutionStepTypetestIssuesArray = Array of TTestIssue;
TTestExecutionStepTypetestSuiteOverviewsArray = Array of TTestSuiteOverview;
TToolExecutionTypetoolLogsArray = Array of TFileReference;
TToolExecutionTypetoolOutputsArray = Array of TToolOutputReference;
{ --------------------------------------------------------------------
TAny
--------------------------------------------------------------------}
TAny = Class(TGoogleBaseObject)
Private
FtypeUrl : String;
Fvalue : String;
Protected
//Property setters
Procedure SettypeUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property typeUrl : String Index 0 Read FtypeUrl Write SettypeUrl;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TAnyClass = Class of TAny;
{ --------------------------------------------------------------------
TDuration
--------------------------------------------------------------------}
TDuration = Class(TGoogleBaseObject)
Private
Fnanos : integer;
Fseconds : String;
Protected
//Property setters
Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property nanos : integer Index 0 Read Fnanos Write Setnanos;
Property seconds : String Index 8 Read Fseconds Write Setseconds;
end;
TDurationClass = Class of TDuration;
{ --------------------------------------------------------------------
TExecution
--------------------------------------------------------------------}
TExecution = Class(TGoogleBaseObject)
Private
FcompletionTime : TTimestamp;
FcreationTime : TTimestamp;
FexecutionId : String;
Foutcome : TOutcome;
Fstate : String;
FtestExecutionMatrixId : String;
Protected
//Property setters
Procedure SetcompletionTime(AIndex : Integer; const AValue : TTimestamp); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
Procedure SetexecutionId(AIndex : Integer; const AValue : String); virtual;
Procedure Setoutcome(AIndex : Integer; const AValue : TOutcome); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
Procedure SettestExecutionMatrixId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property completionTime : TTimestamp Index 0 Read FcompletionTime Write SetcompletionTime;
Property creationTime : TTimestamp Index 8 Read FcreationTime Write SetcreationTime;
Property executionId : String Index 16 Read FexecutionId Write SetexecutionId;
Property outcome : TOutcome Index 24 Read Foutcome Write Setoutcome;
Property state : String Index 32 Read Fstate Write Setstate;
Property testExecutionMatrixId : String Index 40 Read FtestExecutionMatrixId Write SettestExecutionMatrixId;
end;
TExecutionClass = Class of TExecution;
{ --------------------------------------------------------------------
TFailureDetail
--------------------------------------------------------------------}
TFailureDetail = Class(TGoogleBaseObject)
Private
Fcrashed : boolean;
FnotInstalled : boolean;
FotherNativeCrash : boolean;
FtimedOut : boolean;
FunableToCrawl : boolean;
Protected
//Property setters
Procedure Setcrashed(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetnotInstalled(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetotherNativeCrash(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettimedOut(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetunableToCrawl(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property crashed : boolean Index 0 Read Fcrashed Write Setcrashed;
Property notInstalled : boolean Index 8 Read FnotInstalled Write SetnotInstalled;
Property otherNativeCrash : boolean Index 16 Read FotherNativeCrash Write SetotherNativeCrash;
Property timedOut : boolean Index 24 Read FtimedOut Write SettimedOut;
Property unableToCrawl : boolean Index 32 Read FunableToCrawl Write SetunableToCrawl;
end;
TFailureDetailClass = Class of TFailureDetail;
{ --------------------------------------------------------------------
TFileReference
--------------------------------------------------------------------}
TFileReference = Class(TGoogleBaseObject)
Private
FfileUri : String;
Protected
//Property setters
Procedure SetfileUri(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property fileUri : String Index 0 Read FfileUri Write SetfileUri;
end;
TFileReferenceClass = Class of TFileReference;
{ --------------------------------------------------------------------
THistory
--------------------------------------------------------------------}
THistory = Class(TGoogleBaseObject)
Private
FdisplayName : String;
FhistoryId : String;
Fname : String;
Protected
//Property setters
Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
Procedure SethistoryId(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
Property historyId : String Index 8 Read FhistoryId Write SethistoryId;
Property name : String Index 16 Read Fname Write Setname;
end;
THistoryClass = Class of THistory;
{ --------------------------------------------------------------------
TImage
--------------------------------------------------------------------}
TImage = Class(TGoogleBaseObject)
Private
Ferror : TStatus;
FsourceImage : TToolOutputReference;
FstepId : String;
Fthumbnail : TThumbnail;
Protected
//Property setters
Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
Procedure SetsourceImage(AIndex : Integer; const AValue : TToolOutputReference); virtual;
Procedure SetstepId(AIndex : Integer; const AValue : String); virtual;
Procedure Setthumbnail(AIndex : Integer; const AValue : TThumbnail); virtual;
Public
Published
Property error : TStatus Index 0 Read Ferror Write Seterror;
Property sourceImage : TToolOutputReference Index 8 Read FsourceImage Write SetsourceImage;
Property stepId : String Index 16 Read FstepId Write SetstepId;
Property thumbnail : TThumbnail Index 24 Read Fthumbnail Write Setthumbnail;
end;
TImageClass = Class of TImage;
{ --------------------------------------------------------------------
TInconclusiveDetail
--------------------------------------------------------------------}
TInconclusiveDetail = Class(TGoogleBaseObject)
Private
FabortedByUser : boolean;
FinfrastructureFailure : boolean;
FnativeCrash : boolean;
Protected
//Property setters
Procedure SetabortedByUser(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetinfrastructureFailure(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetnativeCrash(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property abortedByUser : boolean Index 0 Read FabortedByUser Write SetabortedByUser;
Property infrastructureFailure : boolean Index 8 Read FinfrastructureFailure Write SetinfrastructureFailure;
Property nativeCrash : boolean Index 16 Read FnativeCrash Write SetnativeCrash;
end;
TInconclusiveDetailClass = Class of TInconclusiveDetail;
{ --------------------------------------------------------------------
TListExecutionsResponse
--------------------------------------------------------------------}
TListExecutionsResponse = Class(TGoogleBaseObject)
Private
Fexecutions : TListExecutionsResponseTypeexecutionsArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Setexecutions(AIndex : Integer; const AValue : TListExecutionsResponseTypeexecutionsArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property executions : TListExecutionsResponseTypeexecutionsArray Index 0 Read Fexecutions Write Setexecutions;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListExecutionsResponseClass = Class of TListExecutionsResponse;
{ --------------------------------------------------------------------
TListHistoriesResponse
--------------------------------------------------------------------}
TListHistoriesResponse = Class(TGoogleBaseObject)
Private
Fhistories : TListHistoriesResponseTypehistoriesArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Sethistories(AIndex : Integer; const AValue : TListHistoriesResponseTypehistoriesArray); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property histories : TListHistoriesResponseTypehistoriesArray Index 0 Read Fhistories Write Sethistories;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListHistoriesResponseClass = Class of TListHistoriesResponse;
{ --------------------------------------------------------------------
TListStepThumbnailsResponse
--------------------------------------------------------------------}
TListStepThumbnailsResponse = Class(TGoogleBaseObject)
Private
FnextPageToken : String;
Fthumbnails : TListStepThumbnailsResponseTypethumbnailsArray;
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setthumbnails(AIndex : Integer; const AValue : TListStepThumbnailsResponseTypethumbnailsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
Property thumbnails : TListStepThumbnailsResponseTypethumbnailsArray Index 8 Read Fthumbnails Write Setthumbnails;
end;
TListStepThumbnailsResponseClass = Class of TListStepThumbnailsResponse;
{ --------------------------------------------------------------------
TListStepsResponse
--------------------------------------------------------------------}
TListStepsResponse = Class(TGoogleBaseObject)
Private
FnextPageToken : String;
Fsteps : TListStepsResponseTypestepsArray;
Protected
//Property setters
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setsteps(AIndex : Integer; const AValue : TListStepsResponseTypestepsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property nextPageToken : String Index 0 Read FnextPageToken Write SetnextPageToken;
Property steps : TListStepsResponseTypestepsArray Index 8 Read Fsteps Write Setsteps;
end;
TListStepsResponseClass = Class of TListStepsResponse;
{ --------------------------------------------------------------------
TOutcome
--------------------------------------------------------------------}
TOutcome = Class(TGoogleBaseObject)
Private
FfailureDetail : TFailureDetail;
FinconclusiveDetail : TInconclusiveDetail;
FskippedDetail : TSkippedDetail;
FsuccessDetail : TSuccessDetail;
Fsummary : String;
Protected
//Property setters
Procedure SetfailureDetail(AIndex : Integer; const AValue : TFailureDetail); virtual;
Procedure SetinconclusiveDetail(AIndex : Integer; const AValue : TInconclusiveDetail); virtual;
Procedure SetskippedDetail(AIndex : Integer; const AValue : TSkippedDetail); virtual;
Procedure SetsuccessDetail(AIndex : Integer; const AValue : TSuccessDetail); virtual;
Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property failureDetail : TFailureDetail Index 0 Read FfailureDetail Write SetfailureDetail;
Property inconclusiveDetail : TInconclusiveDetail Index 8 Read FinconclusiveDetail Write SetinconclusiveDetail;
Property skippedDetail : TSkippedDetail Index 16 Read FskippedDetail Write SetskippedDetail;
Property successDetail : TSuccessDetail Index 24 Read FsuccessDetail Write SetsuccessDetail;
Property summary : String Index 32 Read Fsummary Write Setsummary;
end;
TOutcomeClass = Class of TOutcome;
{ --------------------------------------------------------------------
TProjectSettings
--------------------------------------------------------------------}
TProjectSettings = Class(TGoogleBaseObject)
Private
FdefaultBucket : String;
Fname : String;
Protected
//Property setters
Procedure SetdefaultBucket(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property defaultBucket : String Index 0 Read FdefaultBucket Write SetdefaultBucket;
Property name : String Index 8 Read Fname Write Setname;
end;
TProjectSettingsClass = Class of TProjectSettings;
{ --------------------------------------------------------------------
TPublishXunitXmlFilesRequest
--------------------------------------------------------------------}
TPublishXunitXmlFilesRequest = Class(TGoogleBaseObject)
Private
FxunitXmlFiles : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray;
Protected
//Property setters
Procedure SetxunitXmlFiles(AIndex : Integer; const AValue : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property xunitXmlFiles : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray Index 0 Read FxunitXmlFiles Write SetxunitXmlFiles;
end;
TPublishXunitXmlFilesRequestClass = Class of TPublishXunitXmlFilesRequest;
{ --------------------------------------------------------------------
TSkippedDetail
--------------------------------------------------------------------}
TSkippedDetail = Class(TGoogleBaseObject)
Private
FincompatibleAppVersion : boolean;
FincompatibleArchitecture : boolean;
FincompatibleDevice : boolean;
Protected
//Property setters
Procedure SetincompatibleAppVersion(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetincompatibleArchitecture(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetincompatibleDevice(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property incompatibleAppVersion : boolean Index 0 Read FincompatibleAppVersion Write SetincompatibleAppVersion;
Property incompatibleArchitecture : boolean Index 8 Read FincompatibleArchitecture Write SetincompatibleArchitecture;
Property incompatibleDevice : boolean Index 16 Read FincompatibleDevice Write SetincompatibleDevice;
end;
TSkippedDetailClass = Class of TSkippedDetail;
{ --------------------------------------------------------------------
TStackTrace
--------------------------------------------------------------------}
TStackTrace = Class(TGoogleBaseObject)
Private
Fexception : String;
Protected
//Property setters
Procedure Setexception(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property exception : String Index 0 Read Fexception Write Setexception;
end;
TStackTraceClass = Class of TStackTrace;
{ --------------------------------------------------------------------
TStatus
--------------------------------------------------------------------}
TStatus = Class(TGoogleBaseObject)
Private
Fcode : integer;
Fdetails : TStatusTypedetailsArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property code : integer Index 0 Read Fcode Write Setcode;
Property details : TStatusTypedetailsArray Index 8 Read Fdetails Write Setdetails;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TStatusClass = Class of TStatus;
{ --------------------------------------------------------------------
TStep
--------------------------------------------------------------------}
TStep = Class(TGoogleBaseObject)
Private
FcompletionTime : TTimestamp;
FcreationTime : TTimestamp;
Fdescription : String;
FdeviceUsageDuration : TDuration;
FdimensionValue : TStepTypedimensionValueArray;
FhasImages : boolean;
Flabels : TStepTypelabelsArray;
Fname : String;
Foutcome : TOutcome;
FrunDuration : TDuration;
Fstate : String;
FstepId : String;
FtestExecutionStep : TTestExecutionStep;
FtoolExecutionStep : TToolExecutionStep;
Protected
//Property setters
Procedure SetcompletionTime(AIndex : Integer; const AValue : TTimestamp); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdeviceUsageDuration(AIndex : Integer; const AValue : TDuration); virtual;
Procedure SetdimensionValue(AIndex : Integer; const AValue : TStepTypedimensionValueArray); virtual;
Procedure SethasImages(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setlabels(AIndex : Integer; const AValue : TStepTypelabelsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setoutcome(AIndex : Integer; const AValue : TOutcome); virtual;
Procedure SetrunDuration(AIndex : Integer; const AValue : TDuration); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
Procedure SetstepId(AIndex : Integer; const AValue : String); virtual;
Procedure SettestExecutionStep(AIndex : Integer; const AValue : TTestExecutionStep); virtual;
Procedure SettoolExecutionStep(AIndex : Integer; const AValue : TToolExecutionStep); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property completionTime : TTimestamp Index 0 Read FcompletionTime Write SetcompletionTime;
Property creationTime : TTimestamp Index 8 Read FcreationTime Write SetcreationTime;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property deviceUsageDuration : TDuration Index 24 Read FdeviceUsageDuration Write SetdeviceUsageDuration;
Property dimensionValue : TStepTypedimensionValueArray Index 32 Read FdimensionValue Write SetdimensionValue;
Property hasImages : boolean Index 40 Read FhasImages Write SethasImages;
Property labels : TStepTypelabelsArray Index 48 Read Flabels Write Setlabels;
Property name : String Index 56 Read Fname Write Setname;
Property outcome : TOutcome Index 64 Read Foutcome Write Setoutcome;
Property runDuration : TDuration Index 72 Read FrunDuration Write SetrunDuration;
Property state : String Index 80 Read Fstate Write Setstate;
Property stepId : String Index 88 Read FstepId Write SetstepId;
Property testExecutionStep : TTestExecutionStep Index 96 Read FtestExecutionStep Write SettestExecutionStep;
Property toolExecutionStep : TToolExecutionStep Index 104 Read FtoolExecutionStep Write SettoolExecutionStep;
end;
TStepClass = Class of TStep;
{ --------------------------------------------------------------------
TStepDimensionValueEntry
--------------------------------------------------------------------}
TStepDimensionValueEntry = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TStepDimensionValueEntryClass = Class of TStepDimensionValueEntry;
{ --------------------------------------------------------------------
TStepLabelsEntry
--------------------------------------------------------------------}
TStepLabelsEntry = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TStepLabelsEntryClass = Class of TStepLabelsEntry;
{ --------------------------------------------------------------------
TSuccessDetail
--------------------------------------------------------------------}
TSuccessDetail = Class(TGoogleBaseObject)
Private
FotherNativeCrash : boolean;
Protected
//Property setters
Procedure SetotherNativeCrash(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property otherNativeCrash : boolean Index 0 Read FotherNativeCrash Write SetotherNativeCrash;
end;
TSuccessDetailClass = Class of TSuccessDetail;
{ --------------------------------------------------------------------
TTestCaseReference
--------------------------------------------------------------------}
TTestCaseReference = Class(TGoogleBaseObject)
Private
FclassName : String;
Fname : String;
FtestSuiteName : String;
Protected
//Property setters
Procedure SetclassName(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SettestSuiteName(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property className : String Index 0 Read FclassName Write SetclassName;
Property name : String Index 8 Read Fname Write Setname;
Property testSuiteName : String Index 16 Read FtestSuiteName Write SettestSuiteName;
end;
TTestCaseReferenceClass = Class of TTestCaseReference;
{ --------------------------------------------------------------------
TTestExecutionStep
--------------------------------------------------------------------}
TTestExecutionStep = Class(TGoogleBaseObject)
Private
FtestIssues : TTestExecutionStepTypetestIssuesArray;
FtestSuiteOverviews : TTestExecutionStepTypetestSuiteOverviewsArray;
FtestTiming : TTestTiming;
FtoolExecution : TToolExecution;
Protected
//Property setters
Procedure SettestIssues(AIndex : Integer; const AValue : TTestExecutionStepTypetestIssuesArray); virtual;
Procedure SettestSuiteOverviews(AIndex : Integer; const AValue : TTestExecutionStepTypetestSuiteOverviewsArray); virtual;
Procedure SettestTiming(AIndex : Integer; const AValue : TTestTiming); virtual;
Procedure SettoolExecution(AIndex : Integer; const AValue : TToolExecution); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property testIssues : TTestExecutionStepTypetestIssuesArray Index 0 Read FtestIssues Write SettestIssues;
Property testSuiteOverviews : TTestExecutionStepTypetestSuiteOverviewsArray Index 8 Read FtestSuiteOverviews Write SettestSuiteOverviews;
Property testTiming : TTestTiming Index 16 Read FtestTiming Write SettestTiming;
Property toolExecution : TToolExecution Index 24 Read FtoolExecution Write SettoolExecution;
end;
TTestExecutionStepClass = Class of TTestExecutionStep;
{ --------------------------------------------------------------------
TTestIssue
--------------------------------------------------------------------}
TTestIssue = Class(TGoogleBaseObject)
Private
FerrorMessage : String;
FstackTrace : TStackTrace;
Protected
//Property setters
Procedure SeterrorMessage(AIndex : Integer; const AValue : String); virtual;
Procedure SetstackTrace(AIndex : Integer; const AValue : TStackTrace); virtual;
Public
Published
Property errorMessage : String Index 0 Read FerrorMessage Write SeterrorMessage;
Property stackTrace : TStackTrace Index 8 Read FstackTrace Write SetstackTrace;
end;
TTestIssueClass = Class of TTestIssue;
{ --------------------------------------------------------------------
TTestSuiteOverview
--------------------------------------------------------------------}
TTestSuiteOverview = Class(TGoogleBaseObject)
Private
FerrorCount : integer;
FfailureCount : integer;
Fname : String;
FskippedCount : integer;
FtotalCount : integer;
FxmlSource : TFileReference;
Protected
//Property setters
Procedure SeterrorCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetfailureCount(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetskippedCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SettotalCount(AIndex : Integer; const AValue : integer); virtual;
Procedure SetxmlSource(AIndex : Integer; const AValue : TFileReference); virtual;
Public
Published
Property errorCount : integer Index 0 Read FerrorCount Write SeterrorCount;
Property failureCount : integer Index 8 Read FfailureCount Write SetfailureCount;
Property name : String Index 16 Read Fname Write Setname;
Property skippedCount : integer Index 24 Read FskippedCount Write SetskippedCount;
Property totalCount : integer Index 32 Read FtotalCount Write SettotalCount;
Property xmlSource : TFileReference Index 40 Read FxmlSource Write SetxmlSource;
end;
TTestSuiteOverviewClass = Class of TTestSuiteOverview;
{ --------------------------------------------------------------------
TTestTiming
--------------------------------------------------------------------}
TTestTiming = Class(TGoogleBaseObject)
Private
FtestProcessDuration : TDuration;
Protected
//Property setters
Procedure SettestProcessDuration(AIndex : Integer; const AValue : TDuration); virtual;
Public
Published
Property testProcessDuration : TDuration Index 0 Read FtestProcessDuration Write SettestProcessDuration;
end;
TTestTimingClass = Class of TTestTiming;
{ --------------------------------------------------------------------
TThumbnail
--------------------------------------------------------------------}
TThumbnail = Class(TGoogleBaseObject)
Private
FcontentType : String;
Fdata : String;
FheightPx : integer;
FwidthPx : integer;
Protected
//Property setters
Procedure SetcontentType(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
Procedure SetheightPx(AIndex : Integer; const AValue : integer); virtual;
Procedure SetwidthPx(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property contentType : String Index 0 Read FcontentType Write SetcontentType;
Property data : String Index 8 Read Fdata Write Setdata;
Property heightPx : integer Index 16 Read FheightPx Write SetheightPx;
Property widthPx : integer Index 24 Read FwidthPx Write SetwidthPx;
end;
TThumbnailClass = Class of TThumbnail;
{ --------------------------------------------------------------------
TTimestamp
--------------------------------------------------------------------}
TTimestamp = Class(TGoogleBaseObject)
Private
Fnanos : integer;
Fseconds : String;
Protected
//Property setters
Procedure Setnanos(AIndex : Integer; const AValue : integer); virtual;
Procedure Setseconds(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property nanos : integer Index 0 Read Fnanos Write Setnanos;
Property seconds : String Index 8 Read Fseconds Write Setseconds;
end;
TTimestampClass = Class of TTimestamp;
{ --------------------------------------------------------------------
TToolExecution
--------------------------------------------------------------------}
TToolExecution = Class(TGoogleBaseObject)
Private
FcommandLineArguments : TStringArray;
FexitCode : TToolExitCode;
FtoolLogs : TToolExecutionTypetoolLogsArray;
FtoolOutputs : TToolExecutionTypetoolOutputsArray;
Protected
//Property setters
Procedure SetcommandLineArguments(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetexitCode(AIndex : Integer; const AValue : TToolExitCode); virtual;
Procedure SettoolLogs(AIndex : Integer; const AValue : TToolExecutionTypetoolLogsArray); virtual;
Procedure SettoolOutputs(AIndex : Integer; const AValue : TToolExecutionTypetoolOutputsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property commandLineArguments : TStringArray Index 0 Read FcommandLineArguments Write SetcommandLineArguments;
Property exitCode : TToolExitCode Index 8 Read FexitCode Write SetexitCode;
Property toolLogs : TToolExecutionTypetoolLogsArray Index 16 Read FtoolLogs Write SettoolLogs;
Property toolOutputs : TToolExecutionTypetoolOutputsArray Index 24 Read FtoolOutputs Write SettoolOutputs;
end;
TToolExecutionClass = Class of TToolExecution;
{ --------------------------------------------------------------------
TToolExecutionStep
--------------------------------------------------------------------}
TToolExecutionStep = Class(TGoogleBaseObject)
Private
FtoolExecution : TToolExecution;
Protected
//Property setters
Procedure SettoolExecution(AIndex : Integer; const AValue : TToolExecution); virtual;
Public
Published
Property toolExecution : TToolExecution Index 0 Read FtoolExecution Write SettoolExecution;
end;
TToolExecutionStepClass = Class of TToolExecutionStep;
{ --------------------------------------------------------------------
TToolExitCode
--------------------------------------------------------------------}
TToolExitCode = Class(TGoogleBaseObject)
Private
Fnumber : integer;
Protected
//Property setters
Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property number : integer Index 0 Read Fnumber Write Setnumber;
end;
TToolExitCodeClass = Class of TToolExitCode;
{ --------------------------------------------------------------------
TToolOutputReference
--------------------------------------------------------------------}
TToolOutputReference = Class(TGoogleBaseObject)
Private
FcreationTime : TTimestamp;
Foutput : TFileReference;
FtestCase : TTestCaseReference;
Protected
//Property setters
Procedure SetcreationTime(AIndex : Integer; const AValue : TTimestamp); virtual;
Procedure Setoutput(AIndex : Integer; const AValue : TFileReference); virtual;
Procedure SettestCase(AIndex : Integer; const AValue : TTestCaseReference); virtual;
Public
Published
Property creationTime : TTimestamp Index 0 Read FcreationTime Write SetcreationTime;
Property output : TFileReference Index 8 Read Foutput Write Setoutput;
Property testCase : TTestCaseReference Index 16 Read FtestCase Write SettestCase;
end;
TToolOutputReferenceClass = Class of TToolOutputReference;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsStepsThumbnailsResource
--------------------------------------------------------------------}
//Optional query Options for TProjectsHistoriesExecutionsStepsThumbnailsResource, method List
TProjectsHistoriesExecutionsStepsThumbnailsListOptions = Record
pageSize : integer;
pageToken : String;
end;
TProjectsHistoriesExecutionsStepsThumbnailsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : string = '') : TListStepThumbnailsResponse;
Function List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : TProjectsHistoriesExecutionsStepsThumbnailslistOptions) : TListStepThumbnailsResponse;
end;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsStepsResource
--------------------------------------------------------------------}
//Optional query Options for TProjectsHistoriesExecutionsStepsResource, method Create
TProjectsHistoriesExecutionsStepsCreateOptions = Record
requestId : String;
end;
//Optional query Options for TProjectsHistoriesExecutionsStepsResource, method List
TProjectsHistoriesExecutionsStepsListOptions = Record
pageSize : integer;
pageToken : String;
end;
//Optional query Options for TProjectsHistoriesExecutionsStepsResource, method Patch
TProjectsHistoriesExecutionsStepsPatchOptions = Record
requestId : String;
end;
TProjectsHistoriesExecutionsStepsResource = Class(TGoogleResource)
Private
FThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
Function GetThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : string = '') : TStep;overload;
Function Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepscreateOptions) : TStep;overload;
Function Get(executionId: string; historyId: string; projectId: string; stepId: string) : TStep;
Function List(executionId: string; historyId: string; projectId: string; AQuery : string = '') : TListStepsResponse;
Function List(executionId: string; historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionsStepslistOptions) : TListStepsResponse;
Function Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : string = '') : TStep;
Function Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepspatchOptions) : TStep;
Function PublishXunitXmlFiles(executionId: string; historyId: string; projectId: string; stepId: string; aPublishXunitXmlFilesRequest : TPublishXunitXmlFilesRequest) : TStep;
Function CreateThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Property ThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetThumbnailsInstance;
end;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsResource
--------------------------------------------------------------------}
//Optional query Options for TProjectsHistoriesExecutionsResource, method Create
TProjectsHistoriesExecutionsCreateOptions = Record
requestId : String;
end;
//Optional query Options for TProjectsHistoriesExecutionsResource, method List
TProjectsHistoriesExecutionsListOptions = Record
pageSize : integer;
pageToken : String;
end;
//Optional query Options for TProjectsHistoriesExecutionsResource, method Patch
TProjectsHistoriesExecutionsPatchOptions = Record
requestId : String;
end;
TProjectsHistoriesExecutionsResource = Class(TGoogleResource)
Private
FStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
FStepsInstance : TProjectsHistoriesExecutionsStepsResource;
Function GetStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
Function GetStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;overload;
Function Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionscreateOptions) : TExecution;overload;
Function Get(executionId: string; historyId: string; projectId: string) : TExecution;
Function List(historyId: string; projectId: string; AQuery : string = '') : TListExecutionsResponse;
Function List(historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionslistOptions) : TListExecutionsResponse;
Function Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
Function Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionspatchOptions) : TExecution;
Function CreateStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Property StepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetStepsThumbnailsInstance;
Property StepsResource : TProjectsHistoriesExecutionsStepsResource Read GetStepsInstance;
end;
{ --------------------------------------------------------------------
TProjectsHistoriesResource
--------------------------------------------------------------------}
//Optional query Options for TProjectsHistoriesResource, method Create
TProjectsHistoriesCreateOptions = Record
requestId : String;
end;
//Optional query Options for TProjectsHistoriesResource, method List
TProjectsHistoriesListOptions = Record
filterByName : String;
pageSize : integer;
pageToken : String;
end;
TProjectsHistoriesResource = Class(TGoogleResource)
Private
FExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
FExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
FExecutionsInstance : TProjectsHistoriesExecutionsResource;
Function GetExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
Function GetExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
Function GetExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(projectId: string; aHistory : THistory; AQuery : string = '') : THistory;overload;
Function Create(projectId: string; aHistory : THistory; AQuery : TProjectsHistoriescreateOptions) : THistory;overload;
Function Get(historyId: string; projectId: string) : THistory;
Function List(projectId: string; AQuery : string = '') : TListHistoriesResponse;
Function List(projectId: string; AQuery : TProjectsHistorieslistOptions) : TListHistoriesResponse;
Function CreateExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
Function CreateExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
Property ExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetExecutionsStepsThumbnailsInstance;
Property ExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetExecutionsStepsInstance;
Property ExecutionsResource : TProjectsHistoriesExecutionsResource Read GetExecutionsInstance;
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
TProjectsResource = Class(TGoogleResource)
Private
FHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
FHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
FHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
FHistoriesInstance : TProjectsHistoriesResource;
Function GetHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
Function GetHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
Function GetHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
Function GetHistoriesInstance : TProjectsHistoriesResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function GetSettings(projectId: string) : TProjectSettings;
Function InitializeSettings(projectId: string) : TProjectSettings;
Function CreateHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
Function CreateHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
Function CreateHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;virtual;overload;
Function CreateHistoriesResource : TProjectsHistoriesResource;virtual;overload;
Property HistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetHistoriesExecutionsStepsThumbnailsInstance;
Property HistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetHistoriesExecutionsStepsInstance;
Property HistoriesExecutionsResource : TProjectsHistoriesExecutionsResource Read GetHistoriesExecutionsInstance;
Property HistoriesResource : TProjectsHistoriesResource Read GetHistoriesInstance;
end;
{ --------------------------------------------------------------------
TToolresultsAPI
--------------------------------------------------------------------}
TToolresultsAPI = Class(TGoogleAPI)
Private
FProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
FProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
FProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
FProjectsHistoriesInstance : TProjectsHistoriesResource;
FProjectsInstance : TProjectsResource;
Function GetProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;
Function GetProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;virtual;
Function GetProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;virtual;
Function GetProjectsHistoriesInstance : TProjectsHistoriesResource;virtual;
Function GetProjectsInstance : TProjectsResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
Class Function APIVersion : String; override;
Class Function APIRevision : String; override;
Class Function APIID : String; override;
Class Function APITitle : String; override;
Class Function APIDescription : String; override;
Class Function APIOwnerDomain : String; override;
Class Function APIOwnerName : String; override;
Class Function APIIcon16 : String; override;
Class Function APIIcon32 : String; override;
Class Function APIdocumentationLink : String; override;
Class Function APIrootUrl : string; override;
Class Function APIbasePath : string;override;
Class Function APIbaseURL : String;override;
Class Function APIProtocol : string;override;
Class Function APIservicePath : string;override;
Class Function APIbatchPath : String;override;
Class Function APIAuthScopes : TScopeInfoArray;override;
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
Function CreateProjectsHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;virtual;overload;
Function CreateProjectsHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;virtual;overload;
Function CreateProjectsHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;virtual;overload;
Function CreateProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;virtual;overload;
Function CreateProjectsHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;virtual;overload;
Function CreateProjectsHistoriesResource : TProjectsHistoriesResource;virtual;overload;
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
//Add default on-demand instances for resources
Property ProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource Read GetProjectsHistoriesExecutionsStepsThumbnailsInstance;
Property ProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource Read GetProjectsHistoriesExecutionsStepsInstance;
Property ProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource Read GetProjectsHistoriesExecutionsInstance;
Property ProjectsHistoriesResource : TProjectsHistoriesResource Read GetProjectsHistoriesInstance;
Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
end;
implementation
{ --------------------------------------------------------------------
TAny
--------------------------------------------------------------------}
Procedure TAny.SettypeUrl(AIndex : Integer; const AValue : String);
begin
If (FtypeUrl=AValue) then exit;
FtypeUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAny.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDuration
--------------------------------------------------------------------}
Procedure TDuration.Setnanos(AIndex : Integer; const AValue : integer);
begin
If (Fnanos=AValue) then exit;
Fnanos:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDuration.Setseconds(AIndex : Integer; const AValue : String);
begin
If (Fseconds=AValue) then exit;
Fseconds:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TExecution
--------------------------------------------------------------------}
Procedure TExecution.SetcompletionTime(AIndex : Integer; const AValue : TTimestamp);
begin
If (FcompletionTime=AValue) then exit;
FcompletionTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExecution.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExecution.SetexecutionId(AIndex : Integer; const AValue : String);
begin
If (FexecutionId=AValue) then exit;
FexecutionId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExecution.Setoutcome(AIndex : Integer; const AValue : TOutcome);
begin
If (Foutcome=AValue) then exit;
Foutcome:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExecution.Setstate(AIndex : Integer; const AValue : String);
begin
If (Fstate=AValue) then exit;
Fstate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExecution.SettestExecutionMatrixId(AIndex : Integer; const AValue : String);
begin
If (FtestExecutionMatrixId=AValue) then exit;
FtestExecutionMatrixId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TFailureDetail
--------------------------------------------------------------------}
Procedure TFailureDetail.Setcrashed(AIndex : Integer; const AValue : boolean);
begin
If (Fcrashed=AValue) then exit;
Fcrashed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFailureDetail.SetnotInstalled(AIndex : Integer; const AValue : boolean);
begin
If (FnotInstalled=AValue) then exit;
FnotInstalled:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFailureDetail.SetotherNativeCrash(AIndex : Integer; const AValue : boolean);
begin
If (FotherNativeCrash=AValue) then exit;
FotherNativeCrash:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFailureDetail.SettimedOut(AIndex : Integer; const AValue : boolean);
begin
If (FtimedOut=AValue) then exit;
FtimedOut:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFailureDetail.SetunableToCrawl(AIndex : Integer; const AValue : boolean);
begin
If (FunableToCrawl=AValue) then exit;
FunableToCrawl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TFileReference
--------------------------------------------------------------------}
Procedure TFileReference.SetfileUri(AIndex : Integer; const AValue : String);
begin
If (FfileUri=AValue) then exit;
FfileUri:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THistory
--------------------------------------------------------------------}
Procedure THistory.SetdisplayName(AIndex : Integer; const AValue : String);
begin
If (FdisplayName=AValue) then exit;
FdisplayName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THistory.SethistoryId(AIndex : Integer; const AValue : String);
begin
If (FhistoryId=AValue) then exit;
FhistoryId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THistory.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TImage
--------------------------------------------------------------------}
Procedure TImage.Seterror(AIndex : Integer; const AValue : TStatus);
begin
If (Ferror=AValue) then exit;
Ferror:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetsourceImage(AIndex : Integer; const AValue : TToolOutputReference);
begin
If (FsourceImage=AValue) then exit;
FsourceImage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetstepId(AIndex : Integer; const AValue : String);
begin
If (FstepId=AValue) then exit;
FstepId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setthumbnail(AIndex : Integer; const AValue : TThumbnail);
begin
If (Fthumbnail=AValue) then exit;
Fthumbnail:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInconclusiveDetail
--------------------------------------------------------------------}
Procedure TInconclusiveDetail.SetabortedByUser(AIndex : Integer; const AValue : boolean);
begin
If (FabortedByUser=AValue) then exit;
FabortedByUser:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInconclusiveDetail.SetinfrastructureFailure(AIndex : Integer; const AValue : boolean);
begin
If (FinfrastructureFailure=AValue) then exit;
FinfrastructureFailure:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInconclusiveDetail.SetnativeCrash(AIndex : Integer; const AValue : boolean);
begin
If (FnativeCrash=AValue) then exit;
FnativeCrash:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TListExecutionsResponse
--------------------------------------------------------------------}
Procedure TListExecutionsResponse.Setexecutions(AIndex : Integer; const AValue : TListExecutionsResponseTypeexecutionsArray);
begin
If (Fexecutions=AValue) then exit;
Fexecutions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListExecutionsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TListExecutionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'executions' : SetLength(Fexecutions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TListHistoriesResponse
--------------------------------------------------------------------}
Procedure TListHistoriesResponse.Sethistories(AIndex : Integer; const AValue : TListHistoriesResponseTypehistoriesArray);
begin
If (Fhistories=AValue) then exit;
Fhistories:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListHistoriesResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TListHistoriesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'histories' : SetLength(Fhistories,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TListStepThumbnailsResponse
--------------------------------------------------------------------}
Procedure TListStepThumbnailsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListStepThumbnailsResponse.Setthumbnails(AIndex : Integer; const AValue : TListStepThumbnailsResponseTypethumbnailsArray);
begin
If (Fthumbnails=AValue) then exit;
Fthumbnails:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TListStepThumbnailsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'thumbnails' : SetLength(Fthumbnails,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TListStepsResponse
--------------------------------------------------------------------}
Procedure TListStepsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListStepsResponse.Setsteps(AIndex : Integer; const AValue : TListStepsResponseTypestepsArray);
begin
If (Fsteps=AValue) then exit;
Fsteps:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TListStepsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'steps' : SetLength(Fsteps,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOutcome
--------------------------------------------------------------------}
Procedure TOutcome.SetfailureDetail(AIndex : Integer; const AValue : TFailureDetail);
begin
If (FfailureDetail=AValue) then exit;
FfailureDetail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOutcome.SetinconclusiveDetail(AIndex : Integer; const AValue : TInconclusiveDetail);
begin
If (FinconclusiveDetail=AValue) then exit;
FinconclusiveDetail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOutcome.SetskippedDetail(AIndex : Integer; const AValue : TSkippedDetail);
begin
If (FskippedDetail=AValue) then exit;
FskippedDetail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOutcome.SetsuccessDetail(AIndex : Integer; const AValue : TSuccessDetail);
begin
If (FsuccessDetail=AValue) then exit;
FsuccessDetail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOutcome.Setsummary(AIndex : Integer; const AValue : String);
begin
If (Fsummary=AValue) then exit;
Fsummary:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TProjectSettings
--------------------------------------------------------------------}
Procedure TProjectSettings.SetdefaultBucket(AIndex : Integer; const AValue : String);
begin
If (FdefaultBucket=AValue) then exit;
FdefaultBucket:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectSettings.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TPublishXunitXmlFilesRequest
--------------------------------------------------------------------}
Procedure TPublishXunitXmlFilesRequest.SetxunitXmlFiles(AIndex : Integer; const AValue : TPublishXunitXmlFilesRequestTypexunitXmlFilesArray);
begin
If (FxunitXmlFiles=AValue) then exit;
FxunitXmlFiles:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPublishXunitXmlFilesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'xunitxmlfiles' : SetLength(FxunitXmlFiles,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSkippedDetail
--------------------------------------------------------------------}
Procedure TSkippedDetail.SetincompatibleAppVersion(AIndex : Integer; const AValue : boolean);
begin
If (FincompatibleAppVersion=AValue) then exit;
FincompatibleAppVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSkippedDetail.SetincompatibleArchitecture(AIndex : Integer; const AValue : boolean);
begin
If (FincompatibleArchitecture=AValue) then exit;
FincompatibleArchitecture:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSkippedDetail.SetincompatibleDevice(AIndex : Integer; const AValue : boolean);
begin
If (FincompatibleDevice=AValue) then exit;
FincompatibleDevice:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TStackTrace
--------------------------------------------------------------------}
Procedure TStackTrace.Setexception(AIndex : Integer; const AValue : String);
begin
If (Fexception=AValue) then exit;
Fexception:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TStatus
--------------------------------------------------------------------}
Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
begin
If (Fdetails=AValue) then exit;
Fdetails:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'details' : SetLength(Fdetails,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TStep
--------------------------------------------------------------------}
Procedure TStep.SetcompletionTime(AIndex : Integer; const AValue : TTimestamp);
begin
If (FcompletionTime=AValue) then exit;
FcompletionTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SetdeviceUsageDuration(AIndex : Integer; const AValue : TDuration);
begin
If (FdeviceUsageDuration=AValue) then exit;
FdeviceUsageDuration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SetdimensionValue(AIndex : Integer; const AValue : TStepTypedimensionValueArray);
begin
If (FdimensionValue=AValue) then exit;
FdimensionValue:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SethasImages(AIndex : Integer; const AValue : boolean);
begin
If (FhasImages=AValue) then exit;
FhasImages:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.Setlabels(AIndex : Integer; const AValue : TStepTypelabelsArray);
begin
If (Flabels=AValue) then exit;
Flabels:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.Setoutcome(AIndex : Integer; const AValue : TOutcome);
begin
If (Foutcome=AValue) then exit;
Foutcome:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SetrunDuration(AIndex : Integer; const AValue : TDuration);
begin
If (FrunDuration=AValue) then exit;
FrunDuration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.Setstate(AIndex : Integer; const AValue : String);
begin
If (Fstate=AValue) then exit;
Fstate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SetstepId(AIndex : Integer; const AValue : String);
begin
If (FstepId=AValue) then exit;
FstepId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SettestExecutionStep(AIndex : Integer; const AValue : TTestExecutionStep);
begin
If (FtestExecutionStep=AValue) then exit;
FtestExecutionStep:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStep.SettoolExecutionStep(AIndex : Integer; const AValue : TToolExecutionStep);
begin
If (FtoolExecutionStep=AValue) then exit;
FtoolExecutionStep:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TStep.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'dimensionvalue' : SetLength(FdimensionValue,ALength);
'labels' : SetLength(Flabels,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TStepDimensionValueEntry
--------------------------------------------------------------------}
Procedure TStepDimensionValueEntry.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStepDimensionValueEntry.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TStepLabelsEntry
--------------------------------------------------------------------}
Procedure TStepLabelsEntry.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStepLabelsEntry.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSuccessDetail
--------------------------------------------------------------------}
Procedure TSuccessDetail.SetotherNativeCrash(AIndex : Integer; const AValue : boolean);
begin
If (FotherNativeCrash=AValue) then exit;
FotherNativeCrash:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTestCaseReference
--------------------------------------------------------------------}
Procedure TTestCaseReference.SetclassName(AIndex : Integer; const AValue : String);
begin
If (FclassName=AValue) then exit;
FclassName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestCaseReference.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestCaseReference.SettestSuiteName(AIndex : Integer; const AValue : String);
begin
If (FtestSuiteName=AValue) then exit;
FtestSuiteName:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTestExecutionStep
--------------------------------------------------------------------}
Procedure TTestExecutionStep.SettestIssues(AIndex : Integer; const AValue : TTestExecutionStepTypetestIssuesArray);
begin
If (FtestIssues=AValue) then exit;
FtestIssues:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestExecutionStep.SettestSuiteOverviews(AIndex : Integer; const AValue : TTestExecutionStepTypetestSuiteOverviewsArray);
begin
If (FtestSuiteOverviews=AValue) then exit;
FtestSuiteOverviews:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestExecutionStep.SettestTiming(AIndex : Integer; const AValue : TTestTiming);
begin
If (FtestTiming=AValue) then exit;
FtestTiming:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestExecutionStep.SettoolExecution(AIndex : Integer; const AValue : TToolExecution);
begin
If (FtoolExecution=AValue) then exit;
FtoolExecution:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTestExecutionStep.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'testissues' : SetLength(FtestIssues,ALength);
'testsuiteoverviews' : SetLength(FtestSuiteOverviews,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTestIssue
--------------------------------------------------------------------}
Procedure TTestIssue.SeterrorMessage(AIndex : Integer; const AValue : String);
begin
If (FerrorMessage=AValue) then exit;
FerrorMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestIssue.SetstackTrace(AIndex : Integer; const AValue : TStackTrace);
begin
If (FstackTrace=AValue) then exit;
FstackTrace:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTestSuiteOverview
--------------------------------------------------------------------}
Procedure TTestSuiteOverview.SeterrorCount(AIndex : Integer; const AValue : integer);
begin
If (FerrorCount=AValue) then exit;
FerrorCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestSuiteOverview.SetfailureCount(AIndex : Integer; const AValue : integer);
begin
If (FfailureCount=AValue) then exit;
FfailureCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestSuiteOverview.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestSuiteOverview.SetskippedCount(AIndex : Integer; const AValue : integer);
begin
If (FskippedCount=AValue) then exit;
FskippedCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestSuiteOverview.SettotalCount(AIndex : Integer; const AValue : integer);
begin
If (FtotalCount=AValue) then exit;
FtotalCount:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestSuiteOverview.SetxmlSource(AIndex : Integer; const AValue : TFileReference);
begin
If (FxmlSource=AValue) then exit;
FxmlSource:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTestTiming
--------------------------------------------------------------------}
Procedure TTestTiming.SettestProcessDuration(AIndex : Integer; const AValue : TDuration);
begin
If (FtestProcessDuration=AValue) then exit;
FtestProcessDuration:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TThumbnail
--------------------------------------------------------------------}
Procedure TThumbnail.SetcontentType(AIndex : Integer; const AValue : String);
begin
If (FcontentType=AValue) then exit;
FcontentType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnail.Setdata(AIndex : Integer; const AValue : String);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnail.SetheightPx(AIndex : Integer; const AValue : integer);
begin
If (FheightPx=AValue) then exit;
FheightPx:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TThumbnail.SetwidthPx(AIndex : Integer; const AValue : integer);
begin
If (FwidthPx=AValue) then exit;
FwidthPx:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTimestamp
--------------------------------------------------------------------}
Procedure TTimestamp.Setnanos(AIndex : Integer; const AValue : integer);
begin
If (Fnanos=AValue) then exit;
Fnanos:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTimestamp.Setseconds(AIndex : Integer; const AValue : String);
begin
If (Fseconds=AValue) then exit;
Fseconds:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TToolExecution
--------------------------------------------------------------------}
Procedure TToolExecution.SetcommandLineArguments(AIndex : Integer; const AValue : TStringArray);
begin
If (FcommandLineArguments=AValue) then exit;
FcommandLineArguments:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TToolExecution.SetexitCode(AIndex : Integer; const AValue : TToolExitCode);
begin
If (FexitCode=AValue) then exit;
FexitCode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TToolExecution.SettoolLogs(AIndex : Integer; const AValue : TToolExecutionTypetoolLogsArray);
begin
If (FtoolLogs=AValue) then exit;
FtoolLogs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TToolExecution.SettoolOutputs(AIndex : Integer; const AValue : TToolExecutionTypetoolOutputsArray);
begin
If (FtoolOutputs=AValue) then exit;
FtoolOutputs:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TToolExecution.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'commandlinearguments' : SetLength(FcommandLineArguments,ALength);
'toollogs' : SetLength(FtoolLogs,ALength);
'tooloutputs' : SetLength(FtoolOutputs,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TToolExecutionStep
--------------------------------------------------------------------}
Procedure TToolExecutionStep.SettoolExecution(AIndex : Integer; const AValue : TToolExecution);
begin
If (FtoolExecution=AValue) then exit;
FtoolExecution:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TToolExitCode
--------------------------------------------------------------------}
Procedure TToolExitCode.Setnumber(AIndex : Integer; const AValue : integer);
begin
If (Fnumber=AValue) then exit;
Fnumber:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TToolOutputReference
--------------------------------------------------------------------}
Procedure TToolOutputReference.SetcreationTime(AIndex : Integer; const AValue : TTimestamp);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TToolOutputReference.Setoutput(AIndex : Integer; const AValue : TFileReference);
begin
If (Foutput=AValue) then exit;
Foutput:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TToolOutputReference.SettestCase(AIndex : Integer; const AValue : TTestCaseReference);
begin
If (FtestCase=AValue) then exit;
FtestCase:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsStepsThumbnailsResource
--------------------------------------------------------------------}
Class Function TProjectsHistoriesExecutionsStepsThumbnailsResource.ResourceName : String;
begin
Result:='thumbnails';
end;
Class Function TProjectsHistoriesExecutionsStepsThumbnailsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtoolresultsAPI;
end;
Function TProjectsHistoriesExecutionsStepsThumbnailsResource.List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : string = '') : TListStepThumbnailsResponse;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}/thumbnails';
_Methodid = 'toolresults.projects.histories.executions.steps.thumbnails.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStepThumbnailsResponse) as TListStepThumbnailsResponse;
end;
Function TProjectsHistoriesExecutionsStepsThumbnailsResource.List(executionId: string; historyId: string; projectId: string; stepId: string; AQuery : TProjectsHistoriesExecutionsStepsThumbnailslistOptions) : TListStepThumbnailsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(executionId,historyId,projectId,stepId,_Q);
end;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsStepsResource
--------------------------------------------------------------------}
Class Function TProjectsHistoriesExecutionsStepsResource.ResourceName : String;
begin
Result:='steps';
end;
Class Function TProjectsHistoriesExecutionsStepsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtoolresultsAPI;
end;
Function TProjectsHistoriesExecutionsStepsResource.Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : string = '') : TStep;
Const
_HTTPMethod = 'POST';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps';
_Methodid = 'toolresults.projects.histories.executions.steps.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStep,TStep) as TStep;
end;
Function TProjectsHistoriesExecutionsStepsResource.Create(executionId: string; historyId: string; projectId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepscreateOptions) : TStep;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Create(executionId,historyId,projectId,aStep,_Q);
end;
Function TProjectsHistoriesExecutionsStepsResource.Get(executionId: string; historyId: string; projectId: string; stepId: string) : TStep;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}';
_Methodid = 'toolresults.projects.histories.executions.steps.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStep) as TStep;
end;
Function TProjectsHistoriesExecutionsStepsResource.List(executionId: string; historyId: string; projectId: string; AQuery : string = '') : TListStepsResponse;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps';
_Methodid = 'toolresults.projects.histories.executions.steps.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListStepsResponse) as TListStepsResponse;
end;
Function TProjectsHistoriesExecutionsStepsResource.List(executionId: string; historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionsStepslistOptions) : TListStepsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(executionId,historyId,projectId,_Q);
end;
Function TProjectsHistoriesExecutionsStepsResource.Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : string = '') : TStep;
Const
_HTTPMethod = 'PATCH';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}';
_Methodid = 'toolresults.projects.histories.executions.steps.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aStep,TStep) as TStep;
end;
Function TProjectsHistoriesExecutionsStepsResource.Patch(executionId: string; historyId: string; projectId: string; stepId: string; aStep : TStep; AQuery : TProjectsHistoriesExecutionsStepspatchOptions) : TStep;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Patch(executionId,historyId,projectId,stepId,aStep,_Q);
end;
Function TProjectsHistoriesExecutionsStepsResource.PublishXunitXmlFiles(executionId: string; historyId: string; projectId: string; stepId: string; aPublishXunitXmlFilesRequest : TPublishXunitXmlFilesRequest) : TStep;
Const
_HTTPMethod = 'POST';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}/steps/{stepId}:publishXunitXmlFiles';
_Methodid = 'toolresults.projects.histories.executions.steps.publishXunitXmlFiles';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId,'stepId',stepId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aPublishXunitXmlFilesRequest,TStep) as TStep;
end;
Function TProjectsHistoriesExecutionsStepsResource.GetThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
if (FThumbnailsInstance=Nil) then
FThumbnailsInstance:=CreateThumbnailsResource;
Result:=FThumbnailsInstance;
end;
Function TProjectsHistoriesExecutionsStepsResource.CreateThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=CreateThumbnailsResource(Self);
end;
Function TProjectsHistoriesExecutionsStepsResource.CreateThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TProjectsHistoriesExecutionsResource
--------------------------------------------------------------------}
Class Function TProjectsHistoriesExecutionsResource.ResourceName : String;
begin
Result:='executions';
end;
Class Function TProjectsHistoriesExecutionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtoolresultsAPI;
end;
Function TProjectsHistoriesExecutionsResource.Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
Const
_HTTPMethod = 'POST';
_Path = '{projectId}/histories/{historyId}/executions';
_Methodid = 'toolresults.projects.histories.executions.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aExecution,TExecution) as TExecution;
end;
Function TProjectsHistoriesExecutionsResource.Create(historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionscreateOptions) : TExecution;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Create(historyId,projectId,aExecution,_Q);
end;
Function TProjectsHistoriesExecutionsResource.Get(executionId: string; historyId: string; projectId: string) : TExecution;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}';
_Methodid = 'toolresults.projects.histories.executions.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TExecution) as TExecution;
end;
Function TProjectsHistoriesExecutionsResource.List(historyId: string; projectId: string; AQuery : string = '') : TListExecutionsResponse;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}/executions';
_Methodid = 'toolresults.projects.histories.executions.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListExecutionsResponse) as TListExecutionsResponse;
end;
Function TProjectsHistoriesExecutionsResource.List(historyId: string; projectId: string; AQuery : TProjectsHistoriesExecutionslistOptions) : TListExecutionsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(historyId,projectId,_Q);
end;
Function TProjectsHistoriesExecutionsResource.Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : string = '') : TExecution;
Const
_HTTPMethod = 'PATCH';
_Path = '{projectId}/histories/{historyId}/executions/{executionId}';
_Methodid = 'toolresults.projects.histories.executions.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['executionId',executionId,'historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aExecution,TExecution) as TExecution;
end;
Function TProjectsHistoriesExecutionsResource.Patch(executionId: string; historyId: string; projectId: string; aExecution : TExecution; AQuery : TProjectsHistoriesExecutionspatchOptions) : TExecution;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Patch(executionId,historyId,projectId,aExecution,_Q);
end;
Function TProjectsHistoriesExecutionsResource.GetStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
if (FStepsThumbnailsInstance=Nil) then
FStepsThumbnailsInstance:=CreateStepsThumbnailsResource;
Result:=FStepsThumbnailsInstance;
end;
Function TProjectsHistoriesExecutionsResource.CreateStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=CreateStepsThumbnailsResource(Self);
end;
Function TProjectsHistoriesExecutionsResource.CreateStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsHistoriesExecutionsResource.GetStepsInstance : TProjectsHistoriesExecutionsStepsResource;
begin
if (FStepsInstance=Nil) then
FStepsInstance:=CreateStepsResource;
Result:=FStepsInstance;
end;
Function TProjectsHistoriesExecutionsResource.CreateStepsResource : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=CreateStepsResource(Self);
end;
Function TProjectsHistoriesExecutionsResource.CreateStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TProjectsHistoriesResource
--------------------------------------------------------------------}
Class Function TProjectsHistoriesResource.ResourceName : String;
begin
Result:='histories';
end;
Class Function TProjectsHistoriesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtoolresultsAPI;
end;
Function TProjectsHistoriesResource.Create(projectId: string; aHistory : THistory; AQuery : string = '') : THistory;
Const
_HTTPMethod = 'POST';
_Path = '{projectId}/histories';
_Methodid = 'toolresults.projects.histories.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aHistory,THistory) as THistory;
end;
Function TProjectsHistoriesResource.Create(projectId: string; aHistory : THistory; AQuery : TProjectsHistoriescreateOptions) : THistory;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'requestId',AQuery.requestId);
Result:=Create(projectId,aHistory,_Q);
end;
Function TProjectsHistoriesResource.Get(historyId: string; projectId: string) : THistory;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories/{historyId}';
_Methodid = 'toolresults.projects.histories.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['historyId',historyId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THistory) as THistory;
end;
Function TProjectsHistoriesResource.List(projectId: string; AQuery : string = '') : TListHistoriesResponse;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/histories';
_Methodid = 'toolresults.projects.histories.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListHistoriesResponse) as TListHistoriesResponse;
end;
Function TProjectsHistoriesResource.List(projectId: string; AQuery : TProjectsHistorieslistOptions) : TListHistoriesResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filterByName',AQuery.filterByName);
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(projectId,_Q);
end;
Function TProjectsHistoriesResource.GetExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
if (FExecutionsStepsThumbnailsInstance=Nil) then
FExecutionsStepsThumbnailsInstance:=CreateExecutionsStepsThumbnailsResource;
Result:=FExecutionsStepsThumbnailsInstance;
end;
Function TProjectsHistoriesResource.CreateExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=CreateExecutionsStepsThumbnailsResource(Self);
end;
Function TProjectsHistoriesResource.CreateExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsHistoriesResource.GetExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
begin
if (FExecutionsStepsInstance=Nil) then
FExecutionsStepsInstance:=CreateExecutionsStepsResource;
Result:=FExecutionsStepsInstance;
end;
Function TProjectsHistoriesResource.CreateExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=CreateExecutionsStepsResource(Self);
end;
Function TProjectsHistoriesResource.CreateExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsHistoriesResource.GetExecutionsInstance : TProjectsHistoriesExecutionsResource;
begin
if (FExecutionsInstance=Nil) then
FExecutionsInstance:=CreateExecutionsResource;
Result:=FExecutionsInstance;
end;
Function TProjectsHistoriesResource.CreateExecutionsResource : TProjectsHistoriesExecutionsResource;
begin
Result:=CreateExecutionsResource(Self);
end;
Function TProjectsHistoriesResource.CreateExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
begin
Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
Class Function TProjectsResource.ResourceName : String;
begin
Result:='projects';
end;
Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TtoolresultsAPI;
end;
Function TProjectsResource.GetSettings(projectId: string) : TProjectSettings;
Const
_HTTPMethod = 'GET';
_Path = '{projectId}/settings';
_Methodid = 'toolresults.projects.getSettings';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProjectSettings) as TProjectSettings;
end;
Function TProjectsResource.InitializeSettings(projectId: string) : TProjectSettings;
Const
_HTTPMethod = 'POST';
_Path = '{projectId}:initializeSettings';
_Methodid = 'toolresults.projects.initializeSettings';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProjectSettings) as TProjectSettings;
end;
Function TProjectsResource.GetHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
if (FHistoriesExecutionsStepsThumbnailsInstance=Nil) then
FHistoriesExecutionsStepsThumbnailsInstance:=CreateHistoriesExecutionsStepsThumbnailsResource;
Result:=FHistoriesExecutionsStepsThumbnailsInstance;
end;
Function TProjectsResource.CreateHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=CreateHistoriesExecutionsStepsThumbnailsResource(Self);
end;
Function TProjectsResource.CreateHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsResource.GetHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
begin
if (FHistoriesExecutionsStepsInstance=Nil) then
FHistoriesExecutionsStepsInstance:=CreateHistoriesExecutionsStepsResource;
Result:=FHistoriesExecutionsStepsInstance;
end;
Function TProjectsResource.CreateHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=CreateHistoriesExecutionsStepsResource(Self);
end;
Function TProjectsResource.CreateHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsResource.GetHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
begin
if (FHistoriesExecutionsInstance=Nil) then
FHistoriesExecutionsInstance:=CreateHistoriesExecutionsResource;
Result:=FHistoriesExecutionsInstance;
end;
Function TProjectsResource.CreateHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;
begin
Result:=CreateHistoriesExecutionsResource(Self);
end;
Function TProjectsResource.CreateHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
begin
Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TProjectsResource.GetHistoriesInstance : TProjectsHistoriesResource;
begin
if (FHistoriesInstance=Nil) then
FHistoriesInstance:=CreateHistoriesResource;
Result:=FHistoriesInstance;
end;
Function TProjectsResource.CreateHistoriesResource : TProjectsHistoriesResource;
begin
Result:=CreateHistoriesResource(Self);
end;
Function TProjectsResource.CreateHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;
begin
Result:=TProjectsHistoriesResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TToolresultsAPI
--------------------------------------------------------------------}
Class Function TToolresultsAPI.APIName : String;
begin
Result:='toolresults';
end;
Class Function TToolresultsAPI.APIVersion : String;
begin
Result:='v1beta3';
end;
Class Function TToolresultsAPI.APIRevision : String;
begin
Result:='20160523';
end;
Class Function TToolresultsAPI.APIID : String;
begin
Result:='toolresults:v1beta3';
end;
Class Function TToolresultsAPI.APITitle : String;
begin
Result:='Cloud Tool Results API';
end;
Class Function TToolresultsAPI.APIDescription : String;
begin
Result:='Reads and publishes results from Cloud Test Lab.';
end;
Class Function TToolresultsAPI.APIOwnerDomain : String;
begin
Result:='google.com';
end;
Class Function TToolresultsAPI.APIOwnerName : String;
begin
Result:='Google';
end;
Class Function TToolresultsAPI.APIIcon16 : String;
begin
Result:='http://www.google.com/images/icons/product/search-16.gif';
end;
Class Function TToolresultsAPI.APIIcon32 : String;
begin
Result:='http://www.google.com/images/icons/product/search-32.gif';
end;
Class Function TToolresultsAPI.APIdocumentationLink : String;
begin
Result:='https://developers.google.com/cloud-test-lab/';
end;
Class Function TToolresultsAPI.APIrootUrl : string;
begin
Result:='https://www.googleapis.com/';
end;
Class Function TToolresultsAPI.APIbasePath : string;
begin
Result:='/toolresults/v1beta3/projects/';
end;
Class Function TToolresultsAPI.APIbaseURL : String;
begin
Result:='https://www.googleapis.com/toolresults/v1beta3/projects/';
end;
Class Function TToolresultsAPI.APIProtocol : string;
begin
Result:='rest';
end;
Class Function TToolresultsAPI.APIservicePath : string;
begin
Result:='toolresults/v1beta3/projects/';
end;
Class Function TToolresultsAPI.APIbatchPath : String;
begin
Result:='batch';
end;
Class Function TToolresultsAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,1);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
end;
Class Function TToolresultsAPI.APINeedsAuth : Boolean;
begin
Result:=True;
end;
Class Procedure TToolresultsAPI.RegisterAPIResources;
begin
TAny.RegisterObject;
TDuration.RegisterObject;
TExecution.RegisterObject;
TFailureDetail.RegisterObject;
TFileReference.RegisterObject;
THistory.RegisterObject;
TImage.RegisterObject;
TInconclusiveDetail.RegisterObject;
TListExecutionsResponse.RegisterObject;
TListHistoriesResponse.RegisterObject;
TListStepThumbnailsResponse.RegisterObject;
TListStepsResponse.RegisterObject;
TOutcome.RegisterObject;
TProjectSettings.RegisterObject;
TPublishXunitXmlFilesRequest.RegisterObject;
TSkippedDetail.RegisterObject;
TStackTrace.RegisterObject;
TStatus.RegisterObject;
TStep.RegisterObject;
TStepDimensionValueEntry.RegisterObject;
TStepLabelsEntry.RegisterObject;
TSuccessDetail.RegisterObject;
TTestCaseReference.RegisterObject;
TTestExecutionStep.RegisterObject;
TTestIssue.RegisterObject;
TTestSuiteOverview.RegisterObject;
TTestTiming.RegisterObject;
TThumbnail.RegisterObject;
TTimestamp.RegisterObject;
TToolExecution.RegisterObject;
TToolExecutionStep.RegisterObject;
TToolExitCode.RegisterObject;
TToolOutputReference.RegisterObject;
end;
Function TToolresultsAPI.GetProjectsHistoriesExecutionsStepsThumbnailsInstance : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
if (FProjectsHistoriesExecutionsStepsThumbnailsInstance=Nil) then
FProjectsHistoriesExecutionsStepsThumbnailsInstance:=CreateProjectsHistoriesExecutionsStepsThumbnailsResource;
Result:=FProjectsHistoriesExecutionsStepsThumbnailsInstance;
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsThumbnailsResource : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=CreateProjectsHistoriesExecutionsStepsThumbnailsResource(Self);
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsThumbnailsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsThumbnailsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsThumbnailsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TToolresultsAPI.GetProjectsHistoriesExecutionsStepsInstance : TProjectsHistoriesExecutionsStepsResource;
begin
if (FProjectsHistoriesExecutionsStepsInstance=Nil) then
FProjectsHistoriesExecutionsStepsInstance:=CreateProjectsHistoriesExecutionsStepsResource;
Result:=FProjectsHistoriesExecutionsStepsInstance;
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsResource : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=CreateProjectsHistoriesExecutionsStepsResource(Self);
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsStepsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsStepsResource;
begin
Result:=TProjectsHistoriesExecutionsStepsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TToolresultsAPI.GetProjectsHistoriesExecutionsInstance : TProjectsHistoriesExecutionsResource;
begin
if (FProjectsHistoriesExecutionsInstance=Nil) then
FProjectsHistoriesExecutionsInstance:=CreateProjectsHistoriesExecutionsResource;
Result:=FProjectsHistoriesExecutionsInstance;
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsResource : TProjectsHistoriesExecutionsResource;
begin
Result:=CreateProjectsHistoriesExecutionsResource(Self);
end;
Function TToolresultsAPI.CreateProjectsHistoriesExecutionsResource(AOwner : TComponent) : TProjectsHistoriesExecutionsResource;
begin
Result:=TProjectsHistoriesExecutionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TToolresultsAPI.GetProjectsHistoriesInstance : TProjectsHistoriesResource;
begin
if (FProjectsHistoriesInstance=Nil) then
FProjectsHistoriesInstance:=CreateProjectsHistoriesResource;
Result:=FProjectsHistoriesInstance;
end;
Function TToolresultsAPI.CreateProjectsHistoriesResource : TProjectsHistoriesResource;
begin
Result:=CreateProjectsHistoriesResource(Self);
end;
Function TToolresultsAPI.CreateProjectsHistoriesResource(AOwner : TComponent) : TProjectsHistoriesResource;
begin
Result:=TProjectsHistoriesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TToolresultsAPI.GetProjectsInstance : TProjectsResource;
begin
if (FProjectsInstance=Nil) then
FProjectsInstance:=CreateProjectsResource;
Result:=FProjectsInstance;
end;
Function TToolresultsAPI.CreateProjectsResource : TProjectsResource;
begin
Result:=CreateProjectsResource(Self);
end;
Function TToolresultsAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
begin
Result:=TProjectsResource.Create(AOwner);
Result.API:=Self.API;
end;
initialization
TToolresultsAPI.RegisterAPI;
end.