t/legacy/integration/homepage.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use List::AllUtils 'uniq';
   6
   7 use Test::More;
   8 use lib 't/lib';
   9
  10 use SGN::Test::WWW::Mechanize;
  11 my $mech = SGN::Test::WWW::Mechanize->new;
  12
  13 $mech->get_ok( '/' );
  14 $mech->html_lint_ok;
  15 $mech->dbh_leak_ok;
  16
  17 # test for any broken images or other things that have a
  18 # src attr
  19 { my @stuff = grep !m|^https?://|, uniq map $_->attr('src'), $mech->findnodes('//*[@src]');
  20   get_ok( $mech, $_ ) for @stuff;
  21 }
  22
  23 $mech->get_ok( '/' );
  24
  25 # test for any broken local links
  26 {
  27     my @links = grep !m"^(https?|mailto):", uniq map $_->attr('href'), $mech->findnodes('//a[@href]');
  28
  29     get_ok( $mech, $_ ) for @links;
  30 }
  31
  32 done_testing;
  33
  34 sub get_ok {
  35     my ( $mech, $url ) = @_;
  36
  37     local $TODO = $url =~ m!^/gbrowse/! ? 'gbrowse not installed on all development machines' : undef;
  38     diag "visiting $_";
  39     $mech->get_ok( $_ );
  40     $mech->back;
  41 }