#!/usr/bin/env perl

use Haromszog;

use Test::More tests => 5;

require_ok( 'Haromszog' );

is( szamitTerulet(30, 35), 525, "területszámítás" );
is( szamitTerulet(130, 140), 9100, "területszámítás" );
is( szamitKerulet(30, 35, 40), 105, "kerületszámítás" );
is( szamitKerulet(130, 140, 150), 420, "kerületszámítás" );