Delphi CodeCoverage Coverage Report

Coverage report for UTCovTest (C:\Users\joe.snyder\Work\OSEHRA\VistA\Packages\Order Entry Results Reporting\CPRS\Testing\Tests\UTCovTest.pas).

Generated at 10/3/2014 12:24:11 PM by DelphiCodeCoverage - an open source tool for Delphi Code Coverage.

Statistics for C:\Users\joe.snyder\Work\OSEHRA\VistA\Packages\Order Entry Results Reporting\CPRS\Testing\Tests\UTCovTest.pas

Number of lines covered	19
Number of lines with code gen	19
Line coverage	100%

//---------------------------------------------------------------------------
// 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.

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