t/CXGN/UserList/userlist.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::Most;
   5 use CXGN::DB::Connection;
   6 use CXGN::UserList::Handle;
   7
   8 my $dbh;
   9 BEGIN {
  10     eval {
  11         $dbh = CXGN::DB::Connection->new;
  12     };
  13     if ($@ =~ m/DBI connect/){
  14         plan skip_all => "Could not connect to database";
  15     }
  16     die $@ if $@;
  17     plan tests => 3;
  18 }
  19 my $handle = CXGN::UserList::Handle->new($dbh, 768);
  20 ok(defined $handle, '$handle is defined');
  21 my $hotlist = $handle->get_hotlist();
  22 ok(defined $hotlist, "get_hotlist()");
  23 ok(defined $hotlist->get_list_size, "hotlist size");