t/CXGN/Map/test_map_version.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use CXGN::Map::Version;
   4 use CXGN::DB::Connection;
   5 use Test::More tests => 3;
   6 my $dbh=CXGN::DB::Connection->new;
   7
   8 my $new_map_version = CXGN::Map::Version->new($dbh,{map_id=>9});
   9 ok($new_map_version,'Created a new map version object with map_id');
  10
  11 my $map_version_id = $new_map_version->insert_into_database();
  12 ok($map_version_id,'Inserted a new map version id into the db');
  13
  14 $new_map_version = CXGN::Map::Version->new($dbh,{map_version_id=>36});
  15 ok($new_map_version,'Created a new map version object with map_version_id');
  16
  17 $dbh->rollback();