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