Organize the test suite
[sgn.git] / t / integration / phenome / locus_display.t
blob4608c03870aa64c630a12e522988115e9129a2c4
2 =head1 NAME
4 qtl.t - tests for cgi-bin/qtl.pl
6 =head1 DESCRIPTION
8 Tests for cgi-bin/phenome/locus_display.pl
10 =head1 AUTHORS
12 Naama Menda  <nm249@cornell.edu>
14 =cut
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;
23 use CXGN::Phenome::Schema;
24 use CXGN::DB::Connection;
27     my $mech = SGN::Test::WWW::Mechanize->new;
29     $mech->with_test_level( local => sub {
30        my $schema = $mech->context->dbic_schema('CXGN::Phenome::Schema');
32        #find a test locus that has no dbxrefs linked
33        my $sql = "IS NULL";
34        my $test_locus = $schema->resultset("Locus")->search( 
35            { 'me.obsolete' => 'f',
36              dbxref_id => \$sql },
37            {
38                join => 'locus_dbxrefs' }
39           )->first();
40        my $test_id;
41        $test_id = $test_locus->locus_id() if $test_locus;
42        $mech->get_ok("/cgi-bin/phenome/locus_display.pl?locus_id=$test_id");
44        $mech->content_contains("Locus editor");
45    }, 2 );
48 done_testing;