X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fticket%2Fsearch_long_cf_values.t;h=5b904b3639c0764016e685a003d985b23a497534;hb=686acdfba1e10deaceea97cde1dccd99c928263a;hp=f9cc7b5a2892cadfb9e99e5c646fc3fe38dd279e;hpb=63a268637b2d51a8766412617724b9436439deb6;p=freeside.git

diff --git a/rt/t/ticket/search_long_cf_values.t b/rt/t/ticket/search_long_cf_values.t
index f9cc7b5a2..5b904b363 100644
--- a/rt/t/ticket/search_long_cf_values.t
+++ b/rt/t/ticket/search_long_cf_values.t
@@ -1,4 +1,3 @@
-#!/opt/perl/bin/perl -w
 
 # tests relating to searching. Especially around custom fields with long values
 # (> 255 chars)
@@ -6,24 +5,24 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 10;
+use RT::Test nodata => 1, tests => 10;
 
 # setup the queue
 
-my $q = RT::Queue->new($RT::SystemUser);
+my $q = RT::Queue->new(RT->SystemUser);
 my $queue = 'SearchTests-'.$$;
 $q->Create(Name => $queue);
 ok ($q->id, "Created the queue");
 
 
 # setup the CF
-my $cf = RT::CustomField->new($RT::SystemUser);
+my $cf = RT::CustomField->new(RT->SystemUser);
 $cf->Create(Name => 'SearchTest', Type => 'Freeform', MaxValues => 0, Queue => $q->id);
 ok($cf->id, "Created the SearchTest CF");
 my $cflabel = "CustomField-".$cf->id;
 
 # setup some tickets
-my $t1 = RT::Ticket->new($RT::SystemUser);
+my $t1 = RT::Ticket->new(RT->SystemUser);
 my ( $id, undef $msg ) = $t1->Create(
     Queue      => $q->id,
     Subject    => 'SearchTest1',
@@ -33,7 +32,7 @@ my ( $id, undef $msg ) = $t1->Create(
 ok( $id, $msg );
 
 
-my $t2 = RT::Ticket->new($RT::SystemUser);
+my $t2 = RT::Ticket->new(RT->SystemUser);
 ( $id, undef, $msg ) = $t2->Create(
     Queue      => $q->id,
     Subject    => 'SearchTest2',
@@ -42,7 +41,7 @@ my $t2 = RT::Ticket->new($RT::SystemUser);
 );
 ok( $id, $msg );
 
-my $t3 = RT::Ticket->new($RT::SystemUser);
+my $t3 = RT::Ticket->new(RT->SystemUser);
 ( $id, undef, $msg ) = $t3->Create(
     Queue      => $q->id,
     Subject    => 'SearchTest3',
@@ -52,27 +51,27 @@ my $t3 = RT::Ticket->new($RT::SystemUser);
 ok( $id, $msg );
 
 # we have tickets. start searching
-my $tix = RT::Tickets->new($RT::SystemUser);
+my $tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo'");
 is($tix->Count, 1, "matched short string foo")
     or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery;
 
-$tix = RT::Tickets->new($RT::SystemUser);
+$tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'bar'");
 is($tix->Count, 2, "matched long+short string bar")
     or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery;
 
-$tix = RT::Tickets->new($RT::SystemUser);
+$tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("Queue = '$queue' AND ( CF.SearchTest LIKE 'foo' OR CF.SearchTest LIKE 'bar' )");
 is($tix->Count, 3, "matched short string foo or long+short string bar")
     or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery;
 
-$tix = RT::Tickets->new($RT::SystemUser);
+$tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("Queue = '$queue' AND CF.SearchTest NOT LIKE 'foo' AND CF.SearchTest LIKE 'bar'");
 is($tix->Count, 2, "not matched short string foo and matched long+short string bar")
     or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery;
 
-$tix = RT::Tickets->new($RT::SystemUser);
+$tix = RT::Tickets->new(RT->SystemUser);
 $tix->FromSQL("Queue = '$queue' AND CF.SearchTest LIKE 'foo' AND CF.SearchTest NOT LIKE 'bar'");
 is($tix->Count, 1, "matched short string foo and not matched long+short string bar")
     or diag "wrong results from SQL:\n". $tix->BuildSelectCountQuery;