Jason Kohles wrote:
On Jan 29, 2008, at 3:18 AM, Kieren Diment wrote:


On 27 Jan 2008, at 20:59, Ian Docherty wrote:


p.s. I note that there is nothing in Test::WWW (that I can find) that tests return status's such as 200, 401 etc.



From perldoc Test::WWW::Mechanize:
...
From perldoc WWW::Mechanize:
...
from perldoc HTTP::Response:
...
from HTTP::Headers
...
.... never mind, you get the idea ...



Or you can take the easy approach, and stop with the first one...

$mech->link_status_is( 'http://localhost/private/', 401, "/private returns a 401" );


Or, if you've made the request already:


$m->status

Attachment: signature.asc
Description: OpenPGP digital signature

_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Reply via email to