[Rt-commit] r16529 - in rt/branches/3.999-DANGEROUS: t/web

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Oct 24 04:15:18 2008
New Revision: 16529

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/t/web/basic.t

Log:
 r17381 at sunnavys-mb:  sunnavy | 2008-10-24 15:29:46 +0800
 update basic.t for the field rendered by action now


Modified: rt/branches/3.999-DANGEROUS/t/web/basic.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/basic.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/basic.t	Fri Oct 24 04:15:18 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use RT::Test; use Test::More tests => 19;
+use RT::Test; use Test::More tests => 20;
 use HTTP::Request::Common;
 use HTTP::Cookies;
 use LWP;
@@ -39,7 +39,7 @@
 is ($agent->{'status'}, 200, "Loaded Create.html");
 $agent->form_number(3);
 # Start with a string containing characters in latin1
-my $string = "I18N Web Testing æøå";
+my $string = "I18N Web Testing æøå";
 Encode::from_to($string, 'iso-8859-1', 'utf8');
 $agent->field('subject' => "Ticket with utf8 body");
 $agent->field('content' => $string);
@@ -52,7 +52,7 @@
 is ($agent->{'status'}, 200, "Loaded Create.html");
 $agent->form_number(3);
 # Start with a string containing characters in latin1
-$string = "I18N Web Testing æøå";
+$string = "I18N Web Testing æøå";
 Encode::from_to($string, 'iso-8859-1', 'utf8');
 $agent->field('subject' => $string);
 $agent->field('content' => "Ticket with utf8 subject");
@@ -62,9 +62,10 @@
 
 # Update time worked in hours
 $agent->follow_link( text_regex => qr/Basics/ );
-$agent->submit_form( form_number => 3,
-    fields => { time_worked => 5, 'time_worked-TimeUnits' => "hours" }
-);
+my $moniker = $agent->moniker_for('RT::Action::UpdateTicket');
+$agent->fill_in_action_ok( $moniker, 'time_worked' => '5h' );
+$agent->submit;
+
 
 TODO: {
     local $TODO = "We don't handle time worked units yet";