t/marker.t

   1
   2 use strict;
   3
   4 use Test::More qw | no_plan |;
   5
   6 BEGIN {
   7     use_ok("CXGN::Cview::Chromosome");
   8     use_ok("CXGN::Cview::Marker");
   9 }
  10
  11 my $c = CXGN::Cview::Chromosome->new();
  12 my $m = CXGN::Cview::Marker->new($c);
  13
  14 $m->set_offset(30);
  15 is($m->get_offset(), 30, "offset test");
  16
  17 $m->set_north_range(15);
  18 is($m->get_north_range(), 15, "north range accessor test");
  19
  20 $m->set_south_range(22);
  21 is($m->get_south_range(), 22, "sourth range test");
  22
  23 is($m->get_start(), 15, "start coord test");
  24 is($m->get_end(), 52, "end coord test");
  25
  26 $m->set_range_coords(60, 100);
  27 is($m->get_north_range(), 20, "set_range_coords north_range test");
  28 is($m->get_south_range(), 20, "set_range_coords south_range test");
  29 is($m->get_offset(), 80, "set_range_coords offset test");
  30
  31 $m->hide_label();
  32 is($m->is_label_visible(), 0 || '', "label not visible test");
  33
  34 $m->show_label();
  35 is($m->is_label_visible(), 1, "label visible test");
  36
  37 $m->set_marker_name("ABC27");
  38 $m->set_location_subscript("B");
  39 is($m->get_name(), "ABC27B", "marker complete name test");
  40
  41 $m->hide();
  42 is($m->is_hidden(), 1, "marker hidden test");
  43 $m->unhide();
  44 is($m->is_hidden(), 0, "marker shown test");
  45