|Date:||Tue, 1 Jul 2003 21:24:15 -0500|
|To:||bug-wwW-Mechanize [...] rt.cpan.org|
|From:||Andy Lester <andy [...] petdance.com>|
|Subject:||Fwd: problem with WWW::Mechanize|
Show quoted text
>Delivered-To: firstname.lastname@example.org >Date: Tue, 1 Jul 2003 12:55:59 -0400 >From: Hans Dieter Pearcey <email@example.com> >To: firstname.lastname@example.org >Subject: problem with WWW::Mechanize >X-Spam-Status: No, hits=-2.5 required=6.0 > tests=USER_AGENT_MUTT > version=2.55 >X-Spam-Level: >X-Spam-Checker-Version: SpamAssassin 2.55 (188.8.131.52-2003-05-19-exp) >Lines: 37 > >use WWW::Mechanize; >use Test::More 'no_plan'; >use strict; > >our $site ||= "www.listbox.com"; >our $login ||= "login/"; > >my $a = WWW::Mechanize->new; > >my $loginurl = "https://$site/$login"; >$a->get($loginurl); > >ok ($a->success, 'login success') or exit 1; >like($a->content, qr/please log in/i, 'login content') or exit 1; > >$a->form_number(1); >$a->field(listname => 'email@example.com'); >$a->click("authenticating"); >#ok ($a->success, 'auth success') or exit 1; > >when run, this produces: > >% ./01_login >ok 1 - login success >ok 2 - login content >Unexpected field value-- Andy Lester => firstname.lastname@example.org => www.petdance.com => AIM:petdance at (eval 5) line 1 >1..2 ># Looks like your test died just after 2. > >do you know why that is? if I comment out the $a->click, it doesn't >give this error, but obviously then it can't proceed. > >googling didn't help; I found some people who had this error when they >were fiddling with referers that weren't plain strings, but I'm not, and >someone who had almost this exact problem, but didn't get an answer. > >hdp.