[[oktatas:programozás:pascal|< 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 =====

<code pascal Program01.pas>

uses HaromszogTest, crt;

var
	HaromszogTest1 : THaromszogTest;
begin
	HaromszogTest1 := THaromszogTest.Create();
	HaromszogTest1.testSzamitTerulet;

end.
</code>

<code pascal 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.

</code>



<code pascal 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.

</code>

===== Link =====

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