t/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
  20 my %urls = (
  21
  22         "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=",
  23         "locus detail"                             => "/phenome/locus_display.pl?locus_id=428",
  24
  25         "Locus ajax form"                          => "/jsforms/locus_ajax_form.pl",
  26         "Locus editors"                            => "/phenome/editors_note.pl",
  27
  28         "phenotype search"                         => "/search/phenotype_search.pl?wee9_phenotype=&wee9_individual_name=&wee9_population_name=",
  29         "phenotype individual detail"              => "/phenome/individual.pl?individual_id=7530",
  30         "phenotype population detail"              => "/phenome/population.pl?population_id=12",
  31
  32         "QTL detail page"                          => "/phenome/qtl.pl?population_id=12&term_id=47515&chr=7&&peak_marker=SSR286&lod=3.9&qtl=/documents/tempfiles/temp_images/1a1a5391641c653884fbc9d6d8be5c90.png",
  33         "QTL individuals list page"                => "/phenome/indls_range_cvterm.pl?cvterm_id=47515&lower=151.762&upper=162.011&population_id=12",
  34     "qtl search"                        => "/search/direct_search.pl?search=qtl",
  35     "trait search"                        => "/search/direct_search.pl?search=trait",
  36
  37 );
  38
  39 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  40
  41
  42 done_testing;
  43
  44