The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 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/form');my ($form) = $mech->forms;ok($form);ok( $form->find_input('basic_form') );
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/form'
);
(
$form
) =
->forms;
ok(
->find_input(
'basic_form'
) );