t/generic_gene_page.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use lib '../sgn/t/lib';
   6 use SGN::Test::WWW::Mechanize;
   7 use Test::More tests => 4;
   8 use Test::Exception;
   9
  10 use CXGN::Phenome::GenericGenePage;
  11
  12 $SIG{__DIE__} = \&Carp::confess;
  13
  14 throws_ok {
  15     CXGN::Phenome::GenericGenePage->new( -id => 428 )
  16 } qr/-dbh/, 'dies without dbh param';
  17
  18 my $m = SGN::Test::WWW::Mechanize->new();
  19
  20 my $dbh = $m->context->dbc->dbh;
  21
  22 my $ggp = CXGN::Phenome::GenericGenePage
  23     ->new( -id => 428,
  24            -dbh => $dbh,
  25          );
  26
  27 test_xml( $ggp->render_xml );
  28
  29 sub test_xml {
  30     my $x = shift;
  31     like( $x, qr/dwarf/, 'result looks OK');
  32     like( $x, qr/<gene/, 'result looks OK');
  33     like( $x, qr/<data_provider>/, 'result looks OK');
  34 }
  35
  36 #$dbh->disconnect(42);