4 qtl.t - tests for cgi-bin/qtl.pl
8 Tests for cgi-bin/phenome/locus_display.pl
12 Naama Menda <nm249@cornell.edu>
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
34 my $test_locus = $schema->resultset("Locus")->search(
35 { 'me.obsolete' => 'f',
38 join => 'locus_dbxrefs' }
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");