t/validate/cview.t

   1 =head1 NAME
   2
   3 t/validate/cview.t - validation tests for cview/map.pl
   4
   5 =head1 DESCRIPTION
   6
   7 Validation tests for cview/map.pl
   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      = "/cview/map.pl?map_id=c9";
  24
  25 my $mech = Test::WWW::Mechanize->new;
  26 $mech->get("$base_url/$url");
  27 if ($mech->content =~ m/No database found/) {
  28     plan skip_all => "Skipping Contig map due to missing database";
  29 } else {
  30     plan tests => 7;
  31     validate_urls({ "Contig map" => $url });
  32 }