[Rt-commit] r7546 - in rt/branches/3.6-RELEASE: .

[falcone at bestpractical.com]

Author: falcone
Date: Wed Apr 18 17:10:18 2007
New Revision: 7546

Modified:
   rt/branches/3.6-RELEASE/   (props changed)
   rt/branches/3.6-RELEASE/lib/t/regression/02basic_web.t
   rt/branches/3.6-RELEASE/lib/t/regression/23-web_attachments.t

Log:
 r18126 at ketch:  falcone | 2007-04-18 15:40:09 -0400
 * WWW::Mechanize 1.22 removed the form() method
   02basic_web and 21query_builder have different problems with 1.22


Modified: rt/branches/3.6-RELEASE/lib/t/regression/02basic_web.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/02basic_web.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/02basic_web.t	Wed Apr 18 17:10:18 2007
@@ -44,7 +44,7 @@
 
 $agent->get($url."Ticket/Create.html?Queue=1");
 is ($agent->{'status'}, 200, "Loaded Create.html");
-$agent->form(3);
+$agent->form_number(3);
 # Start with a string containing characters in latin1
 my $string = "I18N Web Testing æøå";
 Encode::from_to($string, 'iso-8859-1', 'utf8');
@@ -57,7 +57,7 @@
 
 $agent->get($url."Ticket/Create.html?Queue=1");
 is ($agent->{'status'}, 200, "Loaded Create.html");
-$agent->form(3);
+$agent->form_number(3);
 # Start with a string containing characters in latin1
 my $string = "I18N Web Testing æøå";
 Encode::from_to($string, 'iso-8859-1', 'utf8');

Modified: rt/branches/3.6-RELEASE/lib/t/regression/23-web_attachments.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/23-web_attachments.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/23-web_attachments.t	Wed Apr 18 17:10:18 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');