From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
1234567891011121314151617 use strict;use warnings;use Test::More tests => 3;use lib 't/lib';use Test::WWW::Mechanize::Catalyst 'TestApp';my $mech = Test::WWW::Mechanize::Catalyst->new;$mech->get_ok('http://localhost/basic/formmethod');my ($form) = $mech->forms;ok($form);ok( $form->find_input('basic_formmethod') );
use
strict;
warnings;
Test::More
tests
=> 3;
lib
't/lib'
;
Test::WWW::Mechanize::Catalyst
'TestApp'
my
$mech
= Test::WWW::Mechanize::Catalyst->new;
->get_ok(
'http://localhost/basic/formmethod'
);
(
$form
) =
->forms;
ok(
->find_input(
'basic_formmethod'
) );