TAbstractTestInsightClient

type TAbstractTestInsightClient = class(TObject)

protected

  function GetHasError; virtual; abstract;

  function GetLastErrorMessage; virtual; abstract;

  function JSONToTests();

  procedure ServerPost(); virtual; abstract;

  function ServerGet(); virtual; abstract;

  procedure ServerDelete(); virtual; abstract;

  function ConcatURL(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure LoadConfig();

  procedure GetServerOptions;

  procedure PostResult();

  procedure PostResults();

  procedure StartedTesting();

  procedure FinishedTesting;

  procedure ClearTests;

  procedure SetTestNames();

  function GetTests;

  property Options: TTestInsightOptions; [rw]

  property HasError: Boolean; [r]

  property LastErrorMessage: string; [r]

  property BaseURL: string; [r]

  property PendingResultCount: Integer; [r]

end;

TAbstractTestInsightClient

TObject