unit MyTest;

interface

uses TestFrameWork;
 
type
 TTestCaseFirst = class(TTestCase)
 published
   [TestAttribute]
   procedure TestFirst;
 end;

implementation

procedure TTestCaseFirst.TestFirst;
begin
 Check(1 + 2 = 2, 'Catastrophic arithmetic failure!');
end; 

initialization
  TestFramework.RegisterTest(TTestCaseFirst.Suite);
end.