X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fticket%2Flink_search.t;h=9e5ed1c87fb861fc8fd5880ea7badcd50d9371ed;hb=949a80c148a8bbeeeec54c5a0be5d73b292423a5;hp=1bf7dc6dcb051d1446da32150808c01333395c60;hpb=63a268637b2d51a8766412617724b9436439deb6;p=freeside.git

diff --git a/rt/t/ticket/link_search.t b/rt/t/ticket/link_search.t
index 1bf7dc6dc..9e5ed1c87 100644
--- a/rt/t/ticket/link_search.t
+++ b/rt/t/ticket/link_search.t
@@ -1,6 +1,5 @@
-#!/usr/bin/perl -w
-
 use strict;
+use warnings;
 use RT;
 
 # Load the config file
@@ -10,19 +9,19 @@ use RT::Test tests => 63;
 
 
 #Get the current user all loaded
-my $CurrentUser = $RT::SystemUser;
+my $CurrentUser = RT->SystemUser;
 
-my $queue = new RT::Queue($CurrentUser);
+my $queue = RT::Queue->new($CurrentUser);
 $queue->Load('General') || Abort(loc("Queue could not be loaded."));
 
-my $child_ticket = new RT::Ticket( $CurrentUser );
+my $child_ticket = RT::Ticket->new( $CurrentUser );
 my ($childid) = $child_ticket->Create(
     Subject => 'test child',
     Queue => $queue->Id,
 );
 ok($childid, "We created a child ticket");
 
-my $parent_ticket = new RT::Ticket( $CurrentUser );
+my $parent_ticket = RT::Ticket->new( $CurrentUser );
 my ($parentid) = $parent_ticket->Create(
     Subject => 'test parent',
     Children => [ $childid ],
@@ -155,7 +154,7 @@ while (my $t = $Collection->Next) {
 ok( $has{$parentid}, "The collection has our parent - $parentid");
 ok( !$has{$childid}, "The collection doesn't have our child - $childid");
 
-my $grand_child_ticket = new RT::Ticket( $CurrentUser );
+my $grand_child_ticket = RT::Ticket->new( $CurrentUser );
 my ($grand_childid) = $child_ticket->Create(
     Subject => 'test child',
     Queue   => $queue->Id,
@@ -163,7 +162,7 @@ my ($grand_childid) = $child_ticket->Create(
 );
 ok($childid, "We created a grand child ticket");
 
-my $unlinked_ticket = new RT::Ticket( $CurrentUser );
+my $unlinked_ticket = RT::Ticket->new( $CurrentUser );
 my ($unlinked_id) = $child_ticket->Create(
     Subject => 'test unlinked',
     Queue   => $queue->Id,
@@ -242,5 +241,3 @@ ok( $has{$parentid}, "The collection has our parent");
 ok( $has{$grand_childid}, "The collection have our child");
 ok( !$has{$unlinked_id}, "unlinked is not in collection");
 
-
-1;