t/legacy/integration/cview/map.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use SGN::Test::WWW::Mechanize skip_cgi => 1;
   6 use Test::More;
   7
   8 my $m = SGN::Test::WWW::Mechanize->new();
   9
  10 my $tests = 0;
  11
  12 $m->get_ok("/cview/");
  13 $tests++;
  14 $m->content_contains("Interactive maps");
  15 $tests++;
  16 my @map_links = $m->find_all_links( url_regex => qr/map.pl/ );
  17
  18 foreach my $map ( @map_links ) {
  19     my $link_text = $map->text();
  20
  21     # skip maps with non-numeric ids if local data not available
  22     #
  23     if ($map->url =~ /map.*?id=[a-zA-Z]+/ && $m->test_level() ne 'remote' ) {
  24         diag("Skipping $link_text\n");
  25         next();
  26     }
  27
  28     diag "following '$link_text' link";
  29
  30     $m->follow_link_ok( { text => $map->text() } );
  31     $tests++;
  32
  33     $m->content_contains("Map statistics");
  34     $tests++;
  35
  36     my @chr_links = $m->find_all_links( url_regex => qr/view_chromosome.pl/ );
  37
  38 #    if (@chr_links) { $m->follow_link_ok({ text=>$chr_links[0]->text() }); $tests++;}
  39 #    $tests++;
  40
  41     $m->back();
  42
  43     if ( $m->content() =~ /Overlay/ ) {
  44         my %form = (
  45             form_name => 'overlay_form',
  46             fields    => {
  47                 map_id => 9,
  48                 hilite => "1 50 foo",
  49                 force  => 1,
  50             }
  51         );
  52         $m->submit_form_ok( \%form, "submit overlay form" );
  53         $tests++;
  54         $m->back();
  55     }
  56
  57     $m->back();
  58 }
  59
  60 done_testing($tests);