test_fasta_seq.pl

#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

require_ok("fasta_seq");
my $ralph=new_ok("fasta_seq",["ralph"]);
can_ok("fasta_seq","ID");
is($ralph->ID,"ralph","get_ID");
$ralph->ID("willi");
is($ralph->ID,"willi","set_ID");

done_testing();