first pass RT4 merge, RT#13852

[freeside.git] / rt / t / api / scrip_order.t

diff --git a/rt/t/api/scrip_order.t b/rt/t/api/scrip_order.t
index 9738db9..22d3f21 100644 (file)
--- a/rt/t/api/scrip_order.t
+++ b/rt/t/api/scrip_order.t
@@ -6,14 +6,13 @@ use RT;
 use RT::Test tests => 7;
 
 
-# {{{ test scrip ordering based on description
 
-my $scrip_queue = RT::Queue->new($RT::SystemUser);
+my $scrip_queue = RT::Queue->new(RT->SystemUser);
 my ($queue_id, $msg) = $scrip_queue->Create( Name => "ScripOrdering-$$", 
     Description => 'Test scrip ordering by description' );
 ok($queue_id, "Created scrip-ordering test queue? ".$msg);
 
-my $priority_ten_scrip = RT::Scrip->new($RT::SystemUser);
+my $priority_ten_scrip = RT::Scrip->new(RT->SystemUser);
 (my $id, $msg) = $priority_ten_scrip->Create( 
     Description => "10 set priority $$",
     Queue => $queue_id, 
@@ -26,7 +25,7 @@ my $priority_ten_scrip = RT::Scrip->new($RT::SystemUser);
 );
 ok($id, "Created priority-10 scrip? ".$msg);
 
-my $priority_five_scrip = RT::Scrip->new($RT::SystemUser);
+my $priority_five_scrip = RT::Scrip->new(RT->SystemUser);
 ($id, $msg) = $priority_ten_scrip->Create( 
     Description => "05 set priority $$",
     Queue => $queue_id, 
@@ -39,7 +38,7 @@ my $priority_five_scrip = RT::Scrip->new($RT::SystemUser);
 );
 ok($id, "Created priority-5 scrip? ".$msg);
 
-my $ticket = RT::Ticket->new($RT::SystemUser);
+my $ticket = RT::Ticket->new(RT->SystemUser);
 ($id, $msg) = $ticket->Create( 
     Queue => $queue_id, 
     Requestor => 'order@example.com',
@@ -51,6 +50,4 @@ isnt($ticket->Priority , 0, "Ticket shouldn't be priority 0");
 isnt($ticket->Priority , 5, "Ticket shouldn't be priority 5");
 is  ($ticket->Priority , 10, "Ticket should be priority 10");
 
-# }}}
 
-1;