Initial import

code/ProbeReport.pas

@@ -0,0 +1,78 @@
+unit ProbeReport;
+{$mode objfpc}{$H+}{$codepage utf8}
+interface
+uses SysUtils, fpjson;
+type
+  TProbeReport = class
+  private
+    FRoot: TJSONObject;
+    FTests: TJSONArray;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Add(const Id, Status, Detail: string);
+    procedure Check(const Id: string; const Ok: Boolean; const Detail: string);
+    procedure Save(const FileName: string);
+    function Status: string;
+    property Root: TJSONObject read FRoot;
+  end;
+implementation
+uses Classes, CastleLog, ProbeBuild;
+constructor TProbeReport.Create;
+begin
+  inherited;
+  FRoot := TJSONObject.Create;
+  FRoot.Add('schema', 'kam-android-runtime/1');
+  FRoot.Add('build_id', ProbeBuildId);
+  FRoot.Add('profile', ProbeProfile);
+  FRoot.Add('cpu_expected', ProbeCpu);
+  FRoot.Add('upstream_commit', ProbeUpstreamCommit);
+  FRoot.Add('scope', 'Android architecture smoke, not a running KaM world');
+  FRoot.Add('world_simulation', 'NOT_RUN');
+  FTests := TJSONArray.Create;
+  FRoot.Add('tests', FTests);
+end;
+destructor TProbeReport.Destroy;
+begin
+  FRoot.Free;
+  inherited;
+end;
+procedure TProbeReport.Add(const Id, Status, Detail: string);
+var J: TJSONObject; I: Integer;
+begin
+  for I := FTests.Count - 1 downto 0 do
+    if FTests.Objects[I].Get('id', '') = Id then FTests.Delete(I);
+  J := TJSONObject.Create;
+  J.Add('id', Id); J.Add('status', Status); J.Add('detail', Detail);
+  FTests.Add(J);
+  WritelnLog('KaMProbe', Id + ': ' + Status + ' ' + Detail);
+end;
+procedure TProbeReport.Check(const Id: string; const Ok: Boolean; const Detail: string);
+begin
+  if Ok then Add(Id, 'PASS', Detail) else Add(Id, 'FAIL', Detail);
+end;
+function TProbeReport.Status: string;
+var I: Integer;
+begin
+  Result := 'PASS';
+  for I := 0 to FTests.Count - 1 do
+    if FTests.Objects[I].Get('status','') = 'FAIL' then Exit('FAIL');
+  { Optional NOT_RUN / OBSERVED rows do not make the automatic smoke fail.
+    They remain visible; PASS applies only to executed automatic checks. }
+end;
+procedure TProbeReport.Save(const FileName: string);
+var S: TStringList;
+begin
+  FRoot.Delete('automatic_smoke_status');
+  FRoot.Add('automatic_smoke_status', Status);
+  if not ForceDirectories(ExtractFileDir(FileName)) then
+    raise Exception.Create('Cannot create report directory');
+  S := TStringList.Create;
+  try
+    S.Text := FRoot.FormatJSON;
+    { Evidence must not depend on the filesystem behaviour measured separately
+      by decision.persistence.rename_replace. }
+    S.SaveToFile(FileName);
+  finally S.Free; end;
+end;
+end.