| blob | 54a7202be24be1782b45cece4b6755b183011064 |
1 use strict;
2 use warnings;
3 use SGN::Test qw/validate_urls/;
4 use Test::More;
6 my %urls = (
7 "homepage" => "/",
8 "cview index page" => "/cview/index.pl",
9 "map overview F2-2000" => "/cview/map.pl?map_id=9",
10 "comparative mapviewer" => "/cview/view_chromosome.pl?map_version_id=39",
11 "map overview FISH map" => "/cview/map.pl?map_id=13",
12 "physical map overview" => "/cview/map.pl?map_id=p9",
13 "agp map overview" => "/cview/map.pl?map_id=agp",
14 "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=",
15 "locus detail" => "/phenome/locus_display.pl?locus_id=428",
16 "phenotype search" => "/search/phenotype_search.pl?wee9_phenotype=&wee9_individual_name=&wee9_population_name=",
17 "phenotype individual detail" => "/phenome/individual.pl?individual_id=7530",
18 "phenotype population detail" => "/phenome/population.pl?population_id=12",
19 "QTL detail page" => "/phenome/qtl.pl?population_id=12&term_id=47515&chr=7&l_marker=SSR286&p_marker=SSR286&r_marker=CD57&lod=3.9&qtl=/documents/tempfiles/temp_images/1a1a5391641c653884fbc9d6d8be5c90.png",
20 'tomato bac tpf' => '/sequencing/agp.pl',
21 'tomato bac tpf' => '/sequencing/tpf.pl',
22 "QTL individuals list page" => "/phenome/indls_range_cvterm.pl?cvterm_id=47515&lower=151.762&upper=162.011&population_id=12",
23 "qtl/traits search" => "/search/direct_search.pl?search=cvterm_name",
24 "unigene search" => "/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",
25 "unigene detail" => "/search/unigene.pl?unigene_id=SGN-U231977&w9e3_page=0&w9e3_annot_type=blast&w9e3_unigene_build_id=any",
26 "unigene build" => "/search/unigene_build.pl?id=46",
27 'unigene standalone six-frame translation' => '/tools/sixframe_translate.pl?unigene_id=573435',
28 "marker search page" => "/search/direct_search.pl?search=markers",
29 "marker search" => "/search/markers/markersearch.pl?w822_nametype=starts+with&w822_marker_name=&w822_mapped=on&w822_species=Any&w822_protos=Any&w822_colls=Any&w822_chromos=Any&w822_pos_start=&w822_pos_end=&w822_confs=-1&w822_maps=Any&w822_submit=Search",
30 "marker detail rflp" => "/search/markers/markerinfo.pl?marker_id=109",
31 "marker view rflp" => "/search/markers/view_rflp.pl?marker_id=538",
32 "marker detail ssr" => "/search/markers/markerinfo.pl?marker_id=1151",
33 "marker detail caps" => "/search/markers/markerinfo.pl?marker_id=6469",
34 "bac search page" => "/search/direct_search.pl?search=bacs",
35 "bac search" => "/maps/physical/clone_search.pl?w98e_page=0&w98e_id=&w98e_seqstatus=&w98e_estlenrange=gt&w98e_estlen1=&w98e_estlen2=&w98e_genbank_accession=&w98e_chromonum=&w98e_end_annotation=&w98e_map_id=&w98e_offsetrange=gt&w98e_offset1=&w98e_offset2=&w98e_linkage_group_name=&w98e_il_project_id=&w98e_il_bin_name=",
36 "bac detail page" => "/maps/physical/clone_info.pl?id=3468&w98e_page=0&w98e_seqstatus=complete",
37 "bac detail page 2" => "/maps/physical/clone_info.pl?id=119416",
38 "est search page" => "/search/direct_search.pl?search=est",
39 "est search" => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
40 "est detail page" => "/search/est.pl?request_from=0&request_id=SGN-E234234&request_type=7&search=Search",
41 "family search page" => "/search/direct_search.pl?search=family",
42 "family search" => "/search/family_search.pl?wa82_family_id=22081",
43 "family detail page" => "/search/family.pl?family_id=22081",
44 "library search page" => "/search/direct_search.pl?search=library",
45 "library search" => "/search/library_search.pl?w5c4_term=leaf",
46 "library detail page" => "/content/library_info.pl?library=MXLF",
47 "people search page" => "/search/direct_search.pl?search=directory",
48 "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",
49 "people detail page" => "/solpeople/personal-info.pl?sp_person_id=208&action=view",
50 "tomato genome data home" => "/genomes/Solanum_lycopersicum/genome_data.pl",
51 "genome browser bac list" => "/genomes/Solanum_lycopersicum/genome_data.pl?chr=2",
52 # "Gbrowse example" => "/gbrowse/gbrowse/tomato_bacs/?name=C02HBa0016A12.1",
53 "BLAST page" => "/tools/blast/",
54 "Tree Browser input page" => "/tools/tree_browser/",
55 "Tree Browser sample tree" => "/tools/tree_browser/?tree_string=%281%3A0%2E020058%2C%28%28%28%28%28%282%3A0%2E051985%2C6%3A0%2E002761%29%3A0%2E027131%2C11%3A0%2E405224%29%3A0%2E042208%2C15%3A0%2E067923%29%3A0%2E046508%2C%288%3A1%2E655e%2D08%2C10%3A0%2E155643%29%3A0%2E083277%29%3A0%2E096957%2C9%3A0%2E119609%29%3A0%2E124781%2C%28%283%3A0%2E066341%2C%28%28%284%3A0%2E013384%2C7%3A0%2E007637%29%3A0%2E019214%2C%2016%3A0%2E085744%29%3A0%2E020811%2C12%3A0%2E025839%29%3A0%2E168755%29%3A0%2E086288%2C13%3A0%2E170910%29%3A0%2E016660%29%3A0%2E027472%2C%285%3A0%2E005652%2C14%3A0%2E043026%29%3A0%2E014920%29%3B",
56 "insitu db" => "/insitu/",
57 "insitu search page" => "/insitu/search.pl",
58 "insitu search" => "/insitu/search.pl?w773_experiment_name=&w773_exp_tissue=&w773_exp_stage=&w773_exp_description=&w773_probe_name=&w773_probe_identifier=&w773_image_name=&w773_image_description=&w773_person_first_name=&w773_person_last_name=&w773_organism_name=&w773_common_name=#",
59 "insitu detail page" => "/insitu/detail/experiment.pl?experiment_id=89&action=view",
60 "alignment viewer input page" => "/tools/align_viewer/",
61 "gem search page for templates" => "/search/direct_search.pl?search=template",
62 "gem search page for experiments" => "/search/direct_search.pl?search=experiment",
63 "gem search page for platforms" => "/search/direct_search.pl?search=platform",
64 "gem results page for templates" => "/search/gem_template_search.pl?w616_template_parameters=AB",
65 "gem results page for experiments" => "/search/gem_experiment_search.pl?w932_experiment_parameters=leaf",
66 "gem results page for platforms" => "/search/gem_platform_search.pl?w4b9_template_parameters=affy",
67 "gem detail page for template" => "/gem/template.pl?id=65",
68 "gem detail page for platform" => "/gem/platform.pl?id=1",
69 "gem detail page for experimental design" => "/gem/experimental_design.pl?id=1",
70 "gem detail page for experiment" => "/gem/experiment.pl?id=1",
71 "gem detail page for target" => "/gem/target.pl?id=49",
72 "biosource detail page for sample" => "/biosource/sample.pl?id=1",
73 );
74 my $iteration_count;
76 plan( tests => scalar(keys %urls)*3*($iteration_count = $ENV{ITERATIONS} || 1));
78 validate_urls(\%urls, $iteration_count);