8 test_begin(-tests => 8);
10 use_ok('Bio::PhyloNetwork::muVector');
13 my $vec1=Bio::PhyloNetwork::muVector->new(4);
14 my $vec2=Bio::PhyloNetwork::muVector->new([1,2,3,4]);
15 isa_ok($vec1,'Bio::PhyloNetwork::muVector');
16 isa_ok($vec1,'Bio::PhyloNetwork::muVector');
21 is($vec4 cmp $vec1,0,'arithmetic');
22 ok($vec2->display() eq "(1 2 3 4)",'display');
23 ok($vec2->is_positive(),'is_positive');
25 my $vec5=Bio::PhyloNetwork::muVector->new([2,3,5,0,77]);
26 my $vec6=Bio::PhyloNetwork::muVector->new([2,3,4,5,-7]);
28 ok($vec5->geq_poset($vec6) == 0,'geq_poset');
30 my $vec7=Bio::PhyloNetwork::muVector->new([2,3,5,0,77]);
31 my $vec8=Bio::PhyloNetwork::muVector->new([2,3,4,-1,-7]);
33 ok($vec7->geq_poset($vec8),'geq_poset');