t/legacy/validate/secretom.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 BEGIN { $ENV{SGN_SKIP_CGI}=1 }
   6 use SGN::Test qw/validate_urls/;
   7 use Test::More;
   8
   9 my %urls = (
  10         "secretom main page"  => "/secretom",
  11         "secretom outreach"   => "/secretom/outreach",
  12         "secretom secretary"  => "/secretom/secretary",
  13         "secretom training"   => "/secretom/training",
  14         ( map { ("secretom $_" => "/secretom/detail/$_") }
  15           ( qw(
  16              cell_wall
  17              cuticle
  18              functional_screens
  19              glycoproteome
  20              phytophthora_interaction
  21              prediction
  22              profiling
  23              proteomics
  24              secretion_path
  25              spinoffs
  26             )
  27            )
  28          ),
  29 );
  30
  31 validate_urls(\%urls, $ENV{ITERATIONS} || 1 );
  32
  33 done_testing;