2. Testing a Perl Module after issue is fixed

Now, suppose issue in last post was fixed.

Code(fib.pm):
use strict;
use warnings;

my @arr=(1,2,3,5,8);

sub fib{
my @a1=@_;
my $a=$a1[0];
my $c=0;
foreach(@arr)
{
if($_==$a)
{
$c++;
return 1;
last;
}
}
if($c==0)
{
return 0;
}
}

Test Program(t.pl):

use strict;

use warnings;

use Test::Simple tests => 10;

use fib;

ok( fib(1) == 1 );

ok( fib(2) == 1 );

ok( fib(3) == 1 );

ok( fib(4) == 0 );

ok( fib(5) == 1 );

ok( fib(6) == 0 );

ok( fib(7) == 0 );

ok( fib(8) == 1 );

ok( fib(9) == 0 );

ok( fib(10) == 0 );

Output of t.pl