t/DrawContigAlign/DepthData.t

   1 use Test::More tests => 2;
   2
   3 use CXGN::Transcript::DrawContigAlign::DepthData;
   4 use constant DepthData => 'CXGN::Transcript::DrawContigAlign::DepthData';
   5
   6 my $depth = DepthData->new(2, 3);
   7 is($depth->position, 2, "DepthData position");
   8 $depth->depth($depth->depth + 1);
   9 $depth->increment;
  10 is($depth->depth, 5, "DepthData depth");