t/legacy/validate/phenome.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib 't/lib';
   6 use SGN::Test qw/validate_urls/;
   7 use SGN::Test::WWW::Mechanize;
   8 use Test::More;
   9
  10 my $mech = SGN::Test::WWW::Mechanize->new;
  11 $mech->while_logged_in_all(sub {
  12       my $urls = {
  13         "phenome claim locus" => "/phenome/claim_locus_ownership.pl",
  14         "phenome annot stats" => "/phenome/annot_stats.pl",
  15       };
  16       validate_urls($urls, $ENV{ITERATIONS} || 1, $mech );
  17 });
  18
  19 my %urls = (
  20     "gene search"                 => "/search/locus_search.pl?w8e4_any_name_matchtype=contains&w8e4_any_name=dwarf&w8e4_common_name=&w8e4_phenotype=&w8e4_locus_linkage_group=&w8e4_ontology_term=&w8e4_editor=&w8e4_genbank_accession=",
  21     "locus detail"                => "/phenome/locus_display.pl?locus_id=428",
  22     "Locus ajax form"             => "/jsforms/locus_ajax_form.pl",
  23     "Locus editors"               => "/phenome/editors_note.pl",
  24     "phenotype search"            => "/search/phenotype_search.pl?wee9_phenotype=&wee9_individual_name=&wee9_population_name=",
  25     "phenotype population detail" => "/phenome/population.pl?population_id=12", # this redirects to the stock page
  26     "QTL detail page"             => "/phenome/qtl.pl?population_id=12&term_id=47515&chr=7&&peak_marker=SSR286&lod=3.9&qtl=/img/image_temporarily_unavailable.png",
  27     "QTL individuals list page"   => "/phenome/indls_range_cvterm.pl?cvterm_id=47515&lower=151.762&upper=162.011&population_id=12",
  28     "qtl search"                  => "/search/qtl",
  29     "trait search"                => "/search/trait",
  30     "breeders toolbox"            => "/breeders/",
  31 );
  32
  33 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  34
  35 done_testing;