X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fapi%2Fscrip_order.t;h=6fba7e579944319ea6682895ca71b500acef3be5;hb=919e930aa9279b3c5cd12b593889cd6de79d67bf;hp=9738db9bc3f22e0d43b864d37377b378575828fd;hpb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;p=freeside.git

diff --git a/rt/t/api/scrip_order.t b/rt/t/api/scrip_order.t
index 9738db9bc..6fba7e579 100644
--- a/rt/t/api/scrip_order.t
+++ b/rt/t/api/scrip_order.t
@@ -1,19 +1,18 @@
-#!/usr/bin/perl -w
 
 use strict;
+use warnings;
 
 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;