t/legacy/integration/phenome/locus_display.t

   1
   2 =head1 NAME
   3
   4 qtl.t - tests for cgi-bin/qtl.pl
   5
   6 =head1 DESCRIPTION
   7
   8 Tests for cgi-bin/phenome/locus_display.pl
   9
  10 =head1 AUTHORS
  11
  12 Naama Menda  <nm249@cornell.edu>
  13
  14 =cut
  15
  16 use strict;
  17 use warnings;
  18 use Test::More;
  19 use lib 't/lib';
  20 use SGN::Test;
  21 use SGN::Test::WWW::Mechanize;
  22
  23 use CXGN::Phenome::Schema;
  24
  25 {
  26     my $mech = SGN::Test::WWW::Mechanize->new;
  27
  28     $mech->with_test_level( local => sub {
  29        my $schema = $mech->context->dbic_schema('CXGN::Phenome::Schema');
  30
  31        #find a test locus that has no dbxrefs linked
  32        my $sql = "IS NULL";
  33        my $test_locus = $schema->resultset("Locus")->search(
  34            { 'me.obsolete' => 'f',
  35              dbxref_id => \$sql },
  36            {
  37                join => 'locus_dbxrefs' }
  38           )->first();
  39        my $test_id;
  40        $test_id = $test_locus->locus_id() if $test_locus;
  41        $mech->get_ok("/cgi-bin/phenome/locus_display.pl?locus_id=$test_id");
  42
  43        $mech->content_contains("Locus editor");
  44        my $allele_id = $test_locus->alleles->first->allele_id();
  45        $mech->get_ok("/cgi-bin/phenome/allele.pl?allele_id=$allele_id");
  46    }, 3 );
  47 }
  48
  49 done_testing;