t/app-mech-rootpage.t

   1 #!/usr/bin/env perl
   2 use FindBin qw/$Bin/;
   3 use lib "$Bin/lib";
   4 use TestGitalist;
   5 plan 'skip_all' => 'No WWW::Mechanize' unless MECH();
   6
   7 MECH->get_ok('/');
   8 ok MECH->findnodes_as_string('/html/body');
   9
  10 done_testing;