PATH:
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
bin
/
Editing: test_html.pl
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; use Test::WWW::Mechanize; my $mech = Test::WWW::Mechanize->new; my $url = shift; $mech->get_ok( $url, "We should be able to fetch ($url)" );
SAVE
CANCEL