5c31c3e4eb
Add a class to parse the HTML output of the Delphi-code-coverage tool http://code.google.com/p/delphi-code-coverage/ Add a test for the new parser.
75 lines
1.6 KiB
ObjectPascal
75 lines
1.6 KiB
ObjectPascal
//---------------------------------------------------------------------------
|
|
// 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. |