t/Chromosome/vector.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 11;
   5
   6 use_ok("CXGN::Cview::Chromosome::Vector");
   7 use_ok("CXGN::Cview::Marker::VectorFeature");
   8
   9 my $v = CXGN::Cview::Chromosome::Vector->new();
  10
  11 $v->set_length(3000);
  12 $v->set_height(200);
  13
  14 my $m1 = CXGN::Cview::Marker::VectorFeature->new($v);
  15 $m1->set_range_coords(500, 1000);
  16
  17 my $start = $m1->get_start();
  18
  19 is ($start, 500, "feature start coord test");
  20
  21 my $end = $m1->get_end();
  22
  23 is ($end, 1000, "feature end coord test");
  24
  25 my $offset = $m1->get_offset();
  26
  27 is($offset, (500+1000)/2, "offset test");
  28 is($m1->get_north_range(), 250, "north range test");
  29 is($m1->get_south_range(), 250, "south range test");
  30
  31
  32 my $angle = $v->angle($start);
  33
  34 is((sprintf "%5.4f", $angle), 2.0944, "angle test");
  35
  36 my ($x, $y) = $v->mapunits2pixels($start);
  37
  38 is( (sprintf "%4.1f", $x), 86.6, "mapunits2pixels x test");
  39
  40 is( (sprintf "%4.1f", $y), "-50.0", "mapunits2pixels y test");
  41
  42 $v->add_marker($m1);
  43
  44 my $m2 = CXGN::Cview::Marker::VectorFeature->new($v);
  45
  46 $m2->set_range_coords(1500, 2500);
  47
  48 $v->add_marker($m2);
  49
  50 is($v->get_markers(), 2, "marker test");