Snippet revisions — Bitbucket

+unit PrimeFactors.DUnit.Test;

+interface

+uses

+  Spring,

+  Spring.Testing,

+  PrimeFactors,

+  PrimeFactors.Utils;

+type

+  TPrimeFactor = record

+    Input: Integer;

+    Expected: TArray<Integer>;

+  end;

+  TPrimeFactorsTest = class(TTestCase)

+  public

+    class function FactorsCases: TArray<TPrimeFactor>; static;

+  published

+    [TestCaseSource('FactorsCases')]

+    procedure CheckPrimeFactorsTest(const primeFactor: TPrimeFactor);

+  end;

+implementation

+const

+  // https://en.wikipedia.org/wiki/Prime_factor

+  FactorsTable: array[0..9] of TPrimeFactor = (

+   (Input: 1; Expected: []),

+   (Input: 2; Expected: [2]),

+   (Input: 3; Expected: [3]),

+   (Input: 4; Expected: [2, 2]),

+   (Input: 5; Expected: [5]),

+   (Input: 6; Expected: [2, 3]),

+   (Input: 7; Expected: [7]),

+   (Input: 8; Expected: [2, 2, 2]),

+   (Input: 9; Expected: [3, 3]),

+   (Input: 2 * 2 * 3 * 3 * 5 * 7 * 11 * 11 * 13; Expected: [2, 2, 3, 3, 5, 7, 11, 11, 13])

+  );

+class function TPrimeFactorsTest.FactorsCases: TArray<TPrimeFactor>;

+begin

+  Result := TArray.Copy<TPrimeFactor>(FactorsTable);

+end;

+procedure TPrimeFactorsTest.CheckPrimeFactorsTest(const primeFactor: TPrimeFactor);

+begin

+  CheckEquals(primeFactor.Expected.ToString, TPrime.Factorization(primeFactor.Input).ToString);

+end;

+end.

Snippets