1
# $Id: MuVector.t 15112 2008-12-08 18:12:38Z sendu $
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');