t/legacy/validate/tomato_genome.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 Test::More;
   8
   9 my %urls = (
  10         "tomato genome data home"                  => "/organism/Solanum_lycopersicum/genome",
  11         "tomato genome clone sequencing"            => "/organism/Solanum_lycopersicum/clone_sequencing",
  12         "tomato genome publication page"           => "/genomes/Solanum_lycopersicum/publications.pl",
  13
  14         "bac search page"                          => "/search/direct_search.pl?search=bacs",
  15         "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=",
  16         "bac detail page"                          => "/maps/physical/clone_info.pl?id=3468&w98e_page=0&w98e_seqstatus=complete",
  17         "bac detail page 2"                        => "/maps/physical/clone_info.pl?id=119416",
  18
  19 );
  20
  21 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  22
  23 done_testing;