/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
bin
/
/usr/share/doc/perl-Test-Harness/examples/bin
mkdir
upload
Name
Size
Mode
Actions
forked_tests.pl
1620
0644
edit
dl
rm
test_html.pl
222
0755
edit
dl
rm
tprove_gtk
11040
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-Test-Harness/examples/bin/test_html.pl
(222B)
#!/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
#!/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)" );