t/legacy/integration/phenome/generic_gene_page.t

   1 #!/usr/bin/perl
   2 use Test::More tests => 6;
   3
   4 use strict;
   5 use warnings;
   6 use Carp;
   7 use lib 't/lib';
   8 use SGN::Test::WWW::Mechanize;
   9 use CXGN::Phenome::GenericGenePage;
  10
  11 $SIG{__DIE__} = \&Carp::confess;
  12
  13
  14 my $mech = SGN::Test::WWW::Mechanize->new;
  15
  16 my $dbh = $mech->context->dbc->dbh();
  17
  18 my $ggp = CXGN::Phenome::GenericGenePage
  19     ->new( -id => 428,
  20            -dbh => $dbh,
  21          );
  22
  23 test_xml( $ggp->render_xml );
  24
  25 # now test it on the site
  26 my $url = '/phenome/generic_gene_page.pl';
  27 $mech->get( "$url?locus_id=428" );
  28 test_xml( $mech->content );
  29
  30 sub test_xml {
  31     my ($content) = @_;
  32     like( $content, qr/dwarf/, 'result looks OK');
  33     like( $content, qr/<gene/, 'result looks OK');
  34     like( $content, qr/<data_provider>/, 'result looks OK');
  35 }