t/integration/locus_display.t

   1 =head1 NAME
   2
   3 t/validate/locus_display.t - validation tests for locus_display.pl
   4
   5 =head1 DESCRIPTION
   6
   7 Validation tests for locus_display.pl
   8
   9 =head1 AUTHORS
  10
  11 Jonathan "Duke" Leto
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17 use Test::More tests => 10;
  18 use Test::WWW::Mechanize;
  19 use lib 't/lib';
  20 use SGN::Test;
  21
  22 my $base_url = $ENV{SGN_TEST_SERVER};
  23 my $url      = "/phenome/locus_display.pl?locus_id=428";
  24
  25 my @subsections = split /\n/,<<SUBSECTIONS;
  26 Locus details
  27 Notes and figures
  28 Accessions and images
  29 Alleles
  30 Associated loci
  31 Associated loci - graphical view
  32 SolCyc links
  33 Sequence annotations
  34 Literature annotation
  35 Ontology annotations
  36 SUBSECTIONS
  37
  38 my $mech = Test::WWW::Mechanize->new;
  39 $mech->get("$base_url/$url");
  40
  41 test_subsections();
  42
  43 sub test_subsections {
  44     for my $subsection (@subsections) {
  45         $mech->content_contains($subsection, "$url contains $subsection");
  46     }
  47 }