t/legacy/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
  19 use lib 't/lib';
  20 use SGN::Test::WWW::Mechanize;
  21
  22 my $url = "/phenome/locus_display.pl?locus_id=428";
  23
  24 my @subsections = split /\n/,<<SUBSECTIONS;
  25 Locus details
  26 Notes and figures
  27 Accessions and images
  28 Alleles
  29 Associated loci
  30 Associated loci - graphical view
  31 SolCyc links
  32 Sequence annotations
  33 Literature annotation
  34 Ontology annotations
  35 SUBSECTIONS
  36
  37
  38 my $mech = SGN::Test::WWW::Mechanize->new;
  39 $mech->get( $url );
  40
  41 for my $subsection (@subsections) {
  42     $mech->content_contains($subsection, "$url contains $subsection");
  43 }