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