unit TestCalc;

interface

uses UnitObj, TestFrameWork;

type
  TestTCalc = class(TTestCase)
  strict private
    aCalc: TCalc;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure Test1;
    procedure Test2;
  end;

implementation

{ TestTCalc }

procedure TestTCalc.SetUp;
begin
  aCalc:=TCalc.Create;
end;

procedure TestTCalc.TearDown;
begin
  aCalc.Free;
end;

procedure TestTCalc.Test1;
begin
  CheckEquals(10,aCalc.Add(1,9));
end;

procedure TestTCalc.Test2;
begin
  CheckEquals(20,aCalc.Sub(30,10));
end;

initialization

TestFrameWork.RegisterTest('', TestTCalc.Suite);

end.