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: andy-andy@petdance.com
>Date: Tue, 1 Jul 2003 12:55:59 -0400
>From: Hans Dieter Pearcey <hdp@icgroup.com>
>To: andy@petdance.com
>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 (1.174.2.19-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 => 'init-test-20@listbox.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 https://www.listbox.com/login/ 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.
--
Andy Lester => andy@petdance.com => www.petdance.com => AIM:petdance