unit-testing - DUnit Delphi 中的 dataProvider？

Question

如何为 Delphi DUnit 中的单元测试提供数据？例如，在 PHP 中，您可以执行以下操作:

  public function URLProvider() {
    return [
      ["https://helloacm.com"],
      ["https://codingforspeed.com"]
    ];
  }

  /**
   * @dataProvider URLProvider
   */  
  public function test_url($url) {
    $data = file_get_contents("$this->API?url=$url");
    $result = json_decode($data, true);
    $this->assertEquals(true, $result['result']);
    $this->assertEquals(200, $result['code']);
  }

Answer 1

使用 Spring4D DUnit 扩展，您可以编写类似的内容(查看单元 Tests\Source 文件夹中的 release/1.2 分支 Spring.Testing )。

program Tests;

uses
  Spring.Testing,
  TestInsight.DUnit;

type
  TUrlTests = class(TTestCase)
  public
    class function UrlProvider: TArray<string>; static;
  published
    [TestCaseSource('UrlProvider')]
    procedure TestUrl(const url: string);
  end;

{ TUrlTests }

procedure TUrlTests.TestUrl(const url: string);
begin
  // do whatever
end;

class function TUrlTests.UrlProvider: TArray<string>;
begin
  Result := ['https://helloacm.com', 'https://codingforspeed.com'];
end;

begin
  TUrlTests.Register;
  RunRegisteredTests;
end.

您可以将名称传递给同一 Testcase 类中的方法，也可以指定另一个类 - 方法本身必须是公共(public)静态类函数。然后，扩展将为传递的每个参数创建不同的测试用例。您可以检查 Spring4D 的单元测试以了解其他用例。