t/PhyloNetwork_muVector.t

   1 # $Id$
   2 use strict;
   3
   4 BEGIN {
   5   use lib 't/lib';
   6   use BioperlTest;
   7
   8   test_begin(-tests => 8);
   9
  10   use_ok('Bio::PhyloNetwork::muVector');
  11 }
  12
  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');
  17
  18 my $vec3=-1*$vec2;
  19 my $vec4=$vec3+$vec2;
  20
  21 is($vec4 cmp $vec1,0,'arithmetic');
  22 ok($vec2->display() eq "(1 2 3 4)",'display');
  23 ok($vec2->is_positive(),'is_positive');
  24
  25 my $vec5=Bio::PhyloNetwork::muVector->new([2,3,5,0,77]);
  26 my $vec6=Bio::PhyloNetwork::muVector->new([2,3,4,5,-7]);
  27
  28 ok($vec5->geq_poset($vec6) == 0,'geq_poset');
  29
  30 my $vec7=Bio::PhyloNetwork::muVector->new([2,3,5,0,77]);
  31 my $vec8=Bio::PhyloNetwork::muVector->new([2,3,4,-1,-7]);
  32
  33 ok($vec7->geq_poset($vec8),'geq_poset');
  34