t/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         "qtl_search"                => "/cgi-bin/search/qtl_search.pl",
  12         "qtl search foo"            => "/search/qtl_search.pl?wf1a_cvterm_name=foo",
  13         "unigene search"            => "/search/direct_search.pl?search=unigene",
  14         "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",
  15         "unigene detail"            => "/search/unigene.pl?unigene_id=SGN-U231977&w9e3_page=0&w9e3_annot_type=blast&w9e3_unigene_build_id=any",
  16         "unigene detail 2"          => "/search/unigene.pl?unigene_id=345356&force_image=1",
  17         "unigene detail 3"          => "/search/unigene.pl?unigene_id=CGN-U124510",
  18         "unigene build"             => "/search/unigene_build.pl?id=46",
  19         'unigene list by annot'     => '/search/all_unig_for_annot.pl?match_id=308546&search_type=blast_search',
  20         "est search page"           => "/search/direct_search.pl?search=est",
  21         "est search"                => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
  22         "est detail page"           => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
  23         "family search page"        => "/search/direct_search.pl?search=family",
  24         "family search"             => "/search/family_search.pl?wa82_family_id=22081",
  25         "family detail page"        => "/search/family.pl?family_id=22081",
  26         "library search page"       => "/search/direct_search.pl?search=library",
  27         "library search"            => "/search/library_search.pl?w5c4_term=leaf",
  28         "Phenotype search"          => "/search/direct_search.pl?search=phenotypes",
  29         "image search"              => "/search/image_search.pl?wad1_description_filename_composite=&wad1_submitter=&wad1_image_tag=",
  30         "glossary search"           => "/search/glossarysearch.pl",
  31         "glossary definition"       => "/search/glossarysearch.pl?getTerm=bac",
  32         "people search page"        => "/search/direct_search.pl?search=directory",
  33         "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",
  34         "direct_search TEP"         => "/search/direct_search.pl?search=template_experiment_platform",
  35         "direct_search qtl"         => "/search/direct_search.pl?search=phenotype_qtl_trait",
  36         "direct_search bacs"        => "/search/direct_search.pl?search=bacs",
  37         "direct_search markers"     => "/search/direct_search.pl?search=markers",
  38         "direct_search images"      => "/search/direct_search.pl?search=images",
  39         "direct_search est_library" => "/search/direct_search.pl?search=est_library",
  40 );
  41
  42 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  43
  44 done_testing;