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.