Fpcunit

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

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.

• http://wiki.freepascal.org/fpcunit