t/unit_mech/Controller/Search.t

   1 use Modern::Perl;
   2 use lib 't/lib';
   3
   4 use SGN::Test::WWW::Mechanize skip_cgi => 1;
   5 use Test::Most;
   6
   7 my @urls = qw{
   8             /search
   9             /search/
  10             /search/organisms
  11             /search/loci
  12             /search/phenotypes/qtl
  13             /search/phenotypes
  14             /search/family
  15             /search/markers
  16             /search/images
  17             /search/directory
  18
  19             /search/qtl
  20             /search/trait
  21             /search/phenotype
  22             /search/unigene
  23             /search/platform
  24             /search/template_experiment_platform
  25             /search/est
  26             /search/est_library
  27             /search/bacs
  28
  29             /search/phenotypes/qtl
  30             /search/phenotypes/traits
  31             /search/phenotypes/stock
  32             /search/transcripts/unigene
  33             /search/expression/platform
  34             /search/expression/template
  35             /search/transcripts/est
  36             /search/transcripts/est_library
  37             /search/genomic/clones
  38
  39 };
  40
  41 my $mech = SGN::Test::WWW::Mechanize->new;
  42 for my $url ( @urls ) {
  43     $mech->get_ok( $url );
  44     #$mech->html_lint_ok;
  45 }
  46
  47 done_testing();