blob: 83d2a624b7c53ec6a5a8825248f56b102f10bd1b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
unit ${UNITNAME};
{$mode objfpc}{$H+}
interface
uses
TestFramework;
type
TMyTestCase = class(TTestCase)
published
procedure FirstTest;
end;
procedure RegisterTests;
implementation
//uses
// SomeUnitToTest;
procedure RegisterTests;
begin
TestFramework.RegisterTest(TMyTestCase.Suite);
end;
{ TMyTestCase }
procedure TMyTestCase.FirstTest;
begin
Check(2, 1+1, 'Failed on 1');
end;
end.
|
