[Rt-commit] r7944 - rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression

[ruz at bestpractical.com]

Author: ruz
Date: Sun May 27 03:30:00 2007
New Revision: 7944

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/23-web_attachments.t

Log:
* form is deprecated in WWW::Mechanize

Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/23-web_attachments.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/23-web_attachments.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/23-web_attachments.t	Sun May 27 03:30:00 2007
@@ -32,7 +32,7 @@
 is($m->status, 200, "request successful");
 $m->content_like(qr/Create a new ticket/, 'ticket create page');
 
-$m->form('TicketCreate');
+$m->form_name('TicketCreate');
 $m->field('Subject', 'Attachments test');
 $m->field('Attach',  LogoFile);
 $m->field('Content', 'Some content');
@@ -44,12 +44,12 @@
 $m->content_like(qr/Download bplogo\.gif/, 'page has file name');
 
 $m->follow_link_ok({text => 'Reply'}, "reply to the ticket");
-$m->form('TicketUpdate');
+$m->form_name('TicketUpdate');
 $m->field('Attach',  LogoFile);
 $m->click('AddMoreAttach');
 is($m->status, 200, "request successful");
 
-$m->form('TicketUpdate');
+$m->form_name('TicketUpdate');
 $m->field('Attach',  FaviconFile);
 $m->field('UpdateContent', 'Message');
 $m->click('SubmitTicket');