Translate

2017/07/05

簡單的重試機制及 DUnit 應用,使用 Delphi XE



Simple retry mechanism in Delphi』裡寫出很簡單的重試機制。

運氣還不錯,老版本也可以使用。

比較有趣的地方是,在Daniele Spinetti 所提交的 Github,有為這個單元製作一個 DUnit Test 專案。


DUnit 最早是由Juanco Añez 設計成 Delphi 的版本,從2007 開始,便由 Embarcadero 接手維護並隨 Delphi 發佈,新版的 DUnit 使用上非常簡潔:

  // source from: https://github.com/spinettaro/DelphiDemos/tree/master/RetryHelper
  [TestFixture]
  TRetryHelperTest = class(TObject)
  public
    // Sample Methods
    // Simple single Test
    [Test]
    procedure SimpleRetryTest;
  end;

procedure TRetryHelperTest.SimpleRetryTest;
var
  LProc: TProc;
  LCount: Integer;
  LRetry: Integer;
begin
  LCount := 0;
  LRetry := 3;
  LProc := procedure
    begin
      Inc(LCount);
      if LCount < LRetry then
        raise Exception.Create('Error Message');
    end;
  TRetryHelper.DoRetry(LRetry, 0, LProc);
  Assert.AreEqual(LRetry, LCount);
end;

舊版本雖然不是那麼輕鬆,但透過自動產生的方式,也可以得到以下的測試程式碼:
procedure TestTRetryHelper.TestDoRetry;
var
  AProc: TProc;
  ADelayInMillis: Int64;
  ARetry: Integer;

  LCount: Integer;
begin
  ADelayInMillis := 0;
  LCount := 0;
  ARetry := 3;
  AProc := procedure
    begin
      Inc(LCount);
      if LCount < ARetry then
        raise Exception.Create('Error Message');
    end;
  // TODO: Setup method call parameters
  FRetryHelper.DoRetry(ARetry,ADelayInMillis,AProc);
  // TODO: Validate method results
  Assert.AreEqual(ARetry, LCount);
end;

測試畫面



後記:
其實我對機械式測試是抱著懷疑的看法,因為開發者是自己,測試者也是自己,測試的方式也會按照當初所設想的方向設計,這樣測得出當時開發設想不到的 Bug 嗎?


See also:

沒有留言:

張貼留言

Delphi 自動化 JSON 格式相容性分析

Delphi 自動化產出的 JSON 格式一直被詬病著,因為它的 JSON 格式在起始處一定會強制寫入「Meta Data」,它看起來像是: "table":[["EmpNo",6,0,0,0,4,0,0,false,false,...