t/Map/map.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 7;
   5
   6 use CXGN::DB::Connection;
   7
   8 use_ok('CXGN::Cview::MapFactory');
   9
  10 my $dbh = CXGN::DB::Connection->new();
  11
  12 my %chromosome_counts = (
  13     9 => 12,
  14     7 => 5,
  15     5 => 12,
  16     );
  17
  18 for my $map_id (9, 7, 5) {
  19     my $map_factory = CXGN::Cview::MapFactory->new($dbh);
  20     my $map = $map_factory->create({map_id =>$map_id});
  21     is($map->get_chromosome_count(), $chromosome_counts{$map_id}, "chromosome_count test");
  22     is(scalar($map->get_chromosome_lengths()), $chromosome_counts{$map_id}, "chr len test");
  23 }
  24
  25