<![CDATA[
# in a file: funlib.t
package main;
use strict;
use warnings;
use Test::More tests => 6;
BEGIN {
use_ok("FunLib",':all');
}
{
my $result = 0;
my @nums = (10, 20, 30, 40, 50);
$result = sum(@nums);
is($result, 150, "sum: Test summing an array");
my $degrees = 20;
my $radius = 4;
$result = circle_sector_area($radius, $degrees);
is($result, 0.139626340159546, "circle_sector_area test");
is(PI, 3.14159265358979, "Test value of PI constant");
is($level, 10, "Test global level value");
$level = 20;
is($level, 20, "Test global level change");
}
]]>