Look at the source code for the module. The 'tick' method just uses a bare 'return' on success, which means it's going to fail an ok() test regardless of whether or not it works.
You may also want to look at Test::WWW::Mechanize. chrs, john. On Tue, Nov 4, 2014 at 7:30 AM, Patton, Billy N <billy.pat...@h3net.com> wrote: > I’m using WWW::Mechanize for testing my CGI. > I’m having trouble with the $mech->tick > > Here’s my code : > ok($mech->form_name('cdr_format'),"getting form cdr_format"); > print "pAllFields = " . $mech->value('pAllFields') . "\n"; > 219-> ok($mech->tick('pAllFields',1), 'Setting checkbox to native CDR > format'); > 220-> ok($mech->tick('pAllFields’,0), 'Setting checkbox to native CDR > format’); > > > > Here’s a snippet of the html : > <div id='myForm'> > <form name='cdr_format' method='POST' action='file_admin.cgi'> > <input type='hidden' name='rm' value='process_cdr_format'> > <input type='hidden' name='CGISESSID' > value='ec4c3463d5a7f9d04d2924968413f240'> > <input type='hidden' name='cdr_format' value='1'> > <table border='0' cellpadding='3' cellspacing='0' width='100%'> > <tr> > <td class='fieldLabel' width='60%'> > We would like the files in native CDR format: > </td> > <td class='field'> > <input type='checkbox' class='checkbox' name='pAllFields' value='1'> > > </td> > </tr> > > > When I execute I get this : > ok 40 - getting form cdr_format > Use of uninitialized value in concatenation (.) or string at > ./test_cportal.pl line 218. > pAllFields = > not ok 41 - Setting checkbox to native CDR format > # Failed test 'Setting checkbox to native CDR format' > # at ./test_cportal.pl line 219. > not ok 42 - Setting checkbox to native CDR format > # Failed test 'Setting checkbox to native CDR format' > # at ./test_cportal.pl line 220. > > Here’s the documentation from WWW::Mechanize > $mech->tick( $name, $value [, $set] ) > > "Ticks" the first checkbox that has both the name and value associated with > it on the current form. Dies if there is no named check box for that value. > Passing in a false value as the third optional argument will cause the > checkbox to be unticked. -- To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org For additional commands, e-mail: beginners-cgi-h...@perl.org http://learn.perl.org/