program fectest;
{$MODE Delphi}
uses SysUtils, BeaconFEC;
var
  fec: TBeaconFEC;
  msg: string;
  ok: Boolean;
begin
  fec := TBeaconFEC.Create;
  try
    ok := fec.SelfTest(msg);
    WriteLn('SelfTest: ', msg);
    if ok then WriteLn('==> PASS') else WriteLn('==> FAIL');
  finally
    fec.Free;
  end;
  if not ok then Halt(1);
end.