[Rt-commit] r18125 - in rt/3.999/branches/merge_to_3.8.2: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb  2 03:38:28 2009
New Revision: 18125

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/t/clicky.t

Log:
 r19433 at sunnavys-mb:  sunnavy | 2009-02-02 13:42:11 +0800
 case fix for t/clicky.t


Modified: rt/3.999/branches/merge_to_3.8.2/t/clicky.t
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/t/clicky.t	(original)
+++ rt/3.999/branches/merge_to_3.8.2/t/clicky.t	Mon Feb  2 03:38:28 2009
@@ -18,13 +18,13 @@
 
 use_ok('MIME::Entity');
 
-my $CurrentUser = RT->system_user;
+my $current_user = RT->system_user;
 
-my $queue = RT::Model::Queue->new( current_user => $CurrentUser );
+my $queue = RT::Model::Queue->new( current_user => $current_user );
 $queue->load('General') || abort(_("Queue could not be loaded."));
 
 my $message = MIME::Entity->build(
-    subject => 'test',
+    Subject => 'test',
     Data    => <<END,
 If you have some problems with RT you could find help
 on http://wiki.bestpractical.com or subscribe to
@@ -35,7 +35,7 @@
 END
 );
 
-my $ticket = RT::Model::Ticket->new( current_user => $CurrentUser );
+my $ticket = RT::Model::Ticket->new( current_user => $current_user );
 my ($id) = $ticket->create(
     subject => 'test',
     queue => $queue->id,
@@ -88,7 +88,7 @@
     mime_obj => $message,
 );
 ok( $id,                                   "We created a ticket #$id" );
-ok( $ticket->transactions->first->Content, "Has some content" );
+ok( $ticket->transactions->first->content, "Has some content" );
 
 ok $m->login, 'logged in';
 ok $m->goto_ticket($id), 'opened diplay page of the ticket';