Tartalomjegyzék

< Pascal

Fpcunit

Az Fpcunit

Az Fpcunit a FreePascal egységteszteszköze, amely megvalósítás szintjén egy unit.

Háromszög területszámító teszkezdemény

Program01.pas
uses HaromszogTest, crt;
 
var
	HaromszogTest1 : THaromszogTest;
begin
	HaromszogTest1 := THaromszogTest.Create();
	HaromszogTest1.testSzamitTerulet;
 
end.
HaromszogTest.pas
unit HaromszogTest;
{$mode objfpc}
 
interface
 
Uses
        fpcunit, Haromszog;
 
Type
THaromszogTest = Class(Ttestcase)
published
	procedure testSzamitTerulet;
end;
 
implementation
 
procedure THaromszogTest.testSzamitTerulet;
var
	Haromszog: THaromszog;
begin
	Haromszog := THaromszog.Create();	
	AssertEquals('Vmi', 1, Haromszog.szamitTerulet());
end;
 
 
end.
Haromszog.pas
unit Haromszog;
{$mode objfpc}
{$M+}
interface
 
Type
THaromszog = Class
  published
	function szamitTerulet:Integer;
end;
 
implementation
 
function THaromszog.szamitTerulet(): Integer;
begin
	szamitTerulet := 1;
end;
 
end.