t/Map/map.t

   1
   2
   3 use strict;
   4 use Test::More;
   5
   6 use CXGN::DB::Connection;
   7 use CXGN::Cview::MapFactory;
   8
   9 my $dbh = CXGN::DB::Connection->new();
  10
  11 foreach my $map_id (9, 7, 5) {
  12     my $map_factory = CXGN::Cview::MapFactory->new($dbh);
  13     my $map = $map_factory->create({map_id =>$map_id});
  14     print $map->get_short_name();
  15     print $map->get_long_name();
  16     is($map->get_chromosome_count(), 12, "chromosome_count test");
  17     is(scalar($map->get_chromosome_lengths()), 12, "chr len test");
  18 }
  19
  20