[[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 =====
uses HaromszogTest, crt;
var
HaromszogTest1 : THaromszogTest;
begin
HaromszogTest1 := THaromszogTest.Create();
HaromszogTest1.testSzamitTerulet;
end.
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.
unit Haromszog;
{$mode objfpc}
{$M+}
interface
Type
THaromszog = Class
published
function szamitTerulet:Integer;
end;
implementation
function THaromszog.szamitTerulet(): Integer;
begin
szamitTerulet := 1;
end;
end.
===== Link =====
* http://wiki.freepascal.org/fpcunit