blob: 66db3c0651a27fc693604457eb542a7300266adb (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
//---------------------------------------------------------------------------
// Copyright 2012 The Open Source Electronic Health Record Agent
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//---------------------------------------------------------------------------
unit UTCovTest;
interface
uses UnitTest, TestFrameWork,SysUtils,Windows;
implementation
type
UTCovTestTests=class(TTestCase)
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestCov1;
procedure TestCov2;
procedure TestCov3;
end;
procedure NotRun;
begin
WriteLn('This line will never run');
end;
procedure UTCovTestTests.SetUp;
begin
end;
procedure UTCovTestTests.TearDown;
begin
end;
procedure UTCovTestTests.TestCov1;
begin
{
Block comment lines
}
CheckEquals(1,2-1);
end;
procedure UTCovTestTests.TestCov2;
var
i:DWORD;
begin
for i := 0 to 1 do
WriteLn( IntToStr(i));
// Comment
CheckEquals(i,2);
end;
procedure UTCovTestTests.TestCov3;
var
i : DWORD;
begin
i := 0;
while i < 5 do
i := i+1;
CheckEquals(i,5);
end;
begin
UnitTest.addSuite(UTCovTestTests.Suite);
end.
|
