diff options
Diffstat (limited to 'rt/t/api/scrip_order.t')
| -rw-r--r-- | rt/t/api/scrip_order.t | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/rt/t/api/scrip_order.t b/rt/t/api/scrip_order.t index 9738db9bc..22d3f21d1 100644 --- 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; |