diff options
Diffstat (limited to 'rt/t/ticket/search_long_cf_values.t')
-rw-r--r-- | rt/t/ticket/search_long_cf_values.t | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/rt/t/ticket/search_long_cf_values.t b/rt/t/ticket/search_long_cf_values.t deleted file mode 100644 index f9cc7b5a2..000000000 --- a/rt/t/ticket/search_long_cf_values.t +++ /dev/null @@ -1,79 +0,0 @@ -#!/opt/perl/bin/perl -w - -# tests relating to searching. Especially around custom fields with long values -# (> 255 chars) - -use strict; -use warnings; - -use RT::Test tests => 10; - -# setup the queue - -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); -$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 ( $id, undef $msg ) = $t1->Create( - Queue => $q->id, - Subject => 'SearchTest1', - Requestor => ['search@example.com'], - $cflabel => 'foo', -); -ok( $id, $msg ); - - -my $t2 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t2->Create( - Queue => $q->id, - Subject => 'SearchTest2', - Requestor => ['searchlong@example.com'], - $cflabel => 'bar' x 150, -); -ok( $id, $msg ); - -my $t3 = RT::Ticket->new($RT::SystemUser); -( $id, undef, $msg ) = $t3->Create( - Queue => $q->id, - Subject => 'SearchTest3', - Requestor => ['searchlong@example.com'], - $cflabel => 'bar', -); -ok( $id, $msg ); - -# we have tickets. start searching -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->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->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->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->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; - |