t/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/population_indls.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     plan tests => 7;
  31     validate_urls({ "QTL Analysis Page" => $url });
  32 }