1 # -*-Perl-*- Test Harness script for Bioperl
10 test_begin(-tests => 3);
12 use_ok('Bio::PopGen::TagHaplotype');
22 my $obj = Bio::PopGen::TagHaplotype->new(-haplotype_block => $hap);
25 # check haplotype length
26 is( $obj->tag_length ,1); # Tag length for this set must be 1
29 is( (join ' ', @{($obj->tag_list)->[0]}) ,'1 2'); # the SNPs are 1 and 2 (1 2)
31 # TODO? is this really enough tests?!