Skip to main content

Pascal

Status​

Beta

Versions​

Free Pascal v3.2

Test Frameworks​

FPTest

Example​

unit Example;

{$mode objfpc}{$H+}

interface

function Add(const A: Integer; const B: Integer): Integer;

implementation

function Add(const A: Integer; const B: Integer): Integer;
begin
  Result := A + B;
end;

end.
unit Example;

{$mode objfpc}{$H+}

interface

function Add(const A: Integer; const B: Integer): Integer;

implementation

function Add(const A: Integer; const B: Integer): Integer;
begin
  Result := A + B;
end;

end.
unit ExampleTests;

{$mode objfpc}{$H+}

interface

uses
  TestFramework,
  Example;

type
  TExampleTests = class(TTestCase)
  published
    procedure TestAdd;
  end;

procedure RegisterTests;

implementation

procedure RegisterTests;
begin
  TestFramework.RegisterTest(TExampleTests.Suite);
end;

procedure TExampleTests.TestAdd;
begin
  CheckEquals(2, Add(1, 1));
end;

end.
unit ExampleTests;

{$mode objfpc}{$H+}

interface

uses
  TestFramework,
  Example;

type
  TExampleTests = class(TTestCase)
  published
    procedure TestAdd;
  end;

procedure RegisterTests;

implementation

procedure RegisterTests;
begin
  TestFramework.RegisterTest(TExampleTests.Suite);
end;

procedure TExampleTests.TestAdd;
begin
  CheckEquals(2, Add(1, 1));
end;

end.

Preloaded code can be provided as a separate unit.

Timeout​

12 seconds

Packages​

None

Services​

None

Language ID​

pascal