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.