t/generic_gene_page.t

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