t/DrawContigAlign/Pane.t

   1 use Test::More tests => 4;
   2
   3 use CXGN::Transcript::DrawContigAlign::Pane;
   4 use constant Pane => 'CXGN::Transcript::DrawContigAlign::Pane';
   5
   6 my $pane = Pane->new(27, 70, 30, 400);
   7 is($pane->north, 27,  'Pane north');
   8 is($pane->south, 70,  'Pane south');
   9 is($pane->west,  30,  'Pane west');
  10 is($pane->east,  400, 'Pane east');