例 ページを正常に GET できるかテストする #!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; use Test::WWW::Mechanize; my $mech = Test::WWW::Mechanize->new; $mech->get_ok('http://www.example.com/'); ページのタイトルが期待した値になっているか確認する #!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; use Test::WWW::Mechanize; my $mech = Test::WWW::Mechanize->new; $mech->get_ok('http://www.example.com/');