t/legacy/validate/markers.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         "marker search page"                       => "/search/direct_search.pl?search=markers",
  11         "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",
  12         "marker detail ssr"                        => "/marker/SGN-M1151/details",
  13         "marker detail caps"                       => "/marker/SGN-M6469/details",
  14
  15         "map submissions"                          => "/content/map_submissions.pl",
  16 );
  17
  18 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  19
  20 %urls = (
  21         "marker detail rflp"                       => "/marker/SGN-M109/details",
  22         "marker view rflp"                         => "/marker/SGN-M538/rflp_image/view",
  23 );
  24
  25 {
  26     $TODO = "gbrowse links that 404 are shown";
  27     validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  28 }
  29
  30 done_testing;