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%

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.