https://github.com/Kitware/CMake
Tip revision: 3c9dec0bdc11a69afcbaa93a0e61dc71cddd5491 authored by Brad King on 29 March 2019, 13:22:46 UTC
CMake 3.14.1
CMake 3.14.1
Tip revision: 3c9dec0
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.