git.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/examples/bin/test_html.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::WWW::Mechanize;
   8
   9 my $mech = Test::WWW::Mechanize->new;
  10 my $url  = shift;
  11 $mech->get_ok(
  12     $url,
  13     "We should be able to fetch ($url)"
  14 );