t/legacy/validate/qtl.t

   1 =head1 NAME
   2
   3 population.t - tests for cgi-bin/phenome/population*
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for cgi-bin/phenome/population/*
   8
   9 =head1 AUTHORS
  10
  11 Jonathan "Duke" Leto
  12
  13 =cut
  14
  15 use strict;
  16 use Test::More;
  17 use Test::WWW::Mechanize;
  18
  19 use lib 't/lib';
  20 use SGN::Test qw/validate_urls/;
  21
  22 my $base_url = $ENV{SGN_TEST_SERVER};
  23 my $url      = "/phenome/qtl_analysis.pl?population_id=12&cvterm_id=47515";
  24
  25 my $mech = Test::WWW::Mechanize->new;
  26 $mech->get("$base_url/$url");
  27 if ($mech->content =~ m/temp dir .* not (found|writable)|Failed to obtain lock|failed to submit cluster job/) {
  28     plan skip_all => "Skipping QTL Analysis page due to incomplete configuration";
  29 } else {
  30     validate_urls({
  31         "QTL Analysis Page" => $url ,
  32         });
  33 }
  34
  35 done_testing;