Tests/DelphiCoverage/src/UTCovTest.pas

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