starting to work...

[freeside.git] / rt / t / ticket / merge.t

diff --git a/rt/t/ticket/merge.t b/rt/t/ticket/merge.t
index 7c72fe0..d06d541 100644 (file)
--- a/rt/t/ticket/merge.t
+++ b/rt/t/ticket/merge.t
@@ -11,11 +11,11 @@ use RT::Test tests => '29';
 # validate that when merging two tickets, the comments from both tickets
 # are integrated into the new ticket
 {
-    my $queue = RT::Queue->new($RT::SystemUser);
+    my $queue = RT::Queue->new(RT->SystemUser);
     my ($id,$msg) = $queue->Create(Name => 'MergeTest-'.rand(25));
     ok ($id,$msg);
 
-    my $t1 = RT::Ticket->new($RT::SystemUser);
+    my $t1 = RT::Ticket->new(RT->SystemUser);
     my ($tid,$transid, $t1msg) =$t1->Create(
         Queue => $queue->Name,
         Subject => 'Merge test. orig',
@@ -31,7 +31,7 @@ use RT::Test tests => '29';
     }
     is($Comments,1, "our first ticket has only one Comment");
 
-    my $t2 = RT::Ticket->new($RT::SystemUser);
+    my $t2 = RT::Ticket->new(RT->SystemUser);
     my ($t2id,$t2transid, $t2msg) =$t2->Create ( Queue => $queue->Name, Subject => 'Merge test. duplicate');
     ok ($t2id, $t2msg);
 
@@ -71,15 +71,15 @@ use RT::Test tests => '29';
 
 # when you try to merge duplicate links on postgres, eveyrything goes to hell due to referential integrity constraints.
 {
-    my $t = RT::Ticket->new($RT::SystemUser);
+    my $t = RT::Ticket->new(RT->SystemUser);
     $t->Create(Subject => 'Main', Queue => 'general');
 
     ok ($t->id);
-    my $t2 = RT::Ticket->new($RT::SystemUser);
+    my $t2 = RT::Ticket->new(RT->SystemUser);
     $t2->Create(Subject => 'Second', Queue => 'general');
     ok ($t2->id);
 
-    my $t3 = RT::Ticket->new($RT::SystemUser);
+    my $t3 = RT::Ticket->new(RT->SystemUser);
     $t3->Create(Subject => 'Third', Queue => 'general');
 
     ok ($t3->id);