t/legacy/validate/search.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use SGN::Test qw/validate_urls/;
   6 use Test::More;
   7
   8 my %urls = (
   9         "main search page"          => "/search",
  10         "direct qtl search"         => "/search/direct_search.pl?search=qtl",
  11         "unigene search"            => "/search/direct_search.pl?search=unigene",
  12         "unigene search 2"          => "/search/ug-ad2.pl?w9e3_page=0&w9e3_sequence_name=SGN-U231977&w9e3_clone_name=&w9e3_membersrange=gt&w9e3_members1=&w9e3_members2=&w9e3_annotation=&w9e3_annot_type=blast&w9e3_lenrange=gt&w9e3_len1=&w9e3_len2=&w9e3_unigene_build_id=any",
  13         "unigene detail"            => "/search/unigene.pl?unigene_id=SGN-U231977&w9e3_page=0&w9e3_annot_type=blast&w9e3_unigene_build_id=any",
  14         "unigene detail 2"          => "/search/unigene.pl?unigene_id=345356&force_image=1",
  15         "unigene detail 3"          => "/search/unigene.pl?unigene_id=CGN-U124510",
  16         "unigene build"             => "/search/unigene_build.pl?id=46",
  17         'unigene list by annot'     => '/search/all_unig_for_annot.pl?match_id=308546&search_type=blast_search',
  18         "est search page"           => "/search/direct_search.pl?search=est",
  19         "est search"                => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
  20         "est detail page"           => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
  21         "family search page"        => "/search/direct_search.pl?search=family",
  22         "family search"             => "/search/family_search.pl?wa82_family_id=22081",
  23         "family detail page"        => "/search/family.pl?family_id=22081",
  24         "library search page"       => "/search/direct_search.pl?search=library",
  25         "library search"            => "/search/library_search.pl?w5c4_term=leaf",
  26         "Phenotype search"          => "/search/direct_search.pl?search=phenotypes",
  27         "image search"              => "/search/image_search.pl?wad1_description_filename_composite=&wad1_submitter=&wad1_image_tag=",
  28         "glossary search"           => "/search/glossarysearch.pl",
  29         "glossary definition"       => "/search/glossarysearch.pl?getTerm=bac",
  30         "people search page"        => "/search/direct_search.pl?search=directory",
  31         "people search"             => "/solpeople/people_search.pl?wf7d_first_name=&wf7d_last_name=&wf7d_organization=&wf7d_country=USA&wf7d_research_interests=&wf7d_research_keywords=&wf7d_sortby=last_name",
  32         "direct_search TEP"         => "/search/direct_search.pl?search=template_experiment_platform",
  33         "direct_search qtl"         => "/search/direct_search.pl?search=phenotype_qtl_trait",
  34         "direct_search bacs"        => "/search/direct_search.pl?search=bacs",
  35         "direct_search markers"     => "/search/direct_search.pl?search=markers",
  36         "direct_search images"      => "/search/direct_search.pl?search=images",
  37         "direct_search est_library" => "/search/direct_search.pl?search=est_library",
  38 );
  39
  40 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  41
  42 done_testing;