rt/t/ticket/search_by_cf_freeform_single.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use RT::Test tests => 99;
   7 use RT::Ticket;
   8
   9 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
  10 ok $q && $q->id, 'loaded or created queue';
  11 my $queue = $q->Name;
  12
  13 diag "create a CF\n" if $ENV{TEST_VERBOSE};
  14 my ($cf_name, $cf_id, $cf) = ("Test", 0, undef);
  15 {
  16     $cf = RT::CustomField->new( $RT::SystemUser );
  17     my ($ret, $msg) = $cf->Create(
  18         Name  => $cf_name,
  19         Queue => $q->id,
  20         Type  => 'FreeformSingle',
  21     );
  22     ok($ret, "Custom Field Order created");
  23     $cf_id = $cf->id;
  24 }
  25
  26 my ($total, @data, @tickets, %test) = (0, ());
  27
  28 sub add_tix_from_data {
  29     my @res = ();
  30     while (@data) {
  31         my %args = %{ shift(@data) };
  32         my $cf_value = $args{'Subject'} ne '-'? $args{'Subject'} : undef;
  33         my $t = RT::Ticket->new($RT::SystemUser);
  34         my ( $id, undef $msg ) = $t->Create(
  35             Queue => $q->id,
  36             %args,
  37             "CustomField-$cf_id" => $cf_value,
  38         );
  39         ok( $id, "ticket created" ) or diag("error: $msg");
  40         is( $t->FirstCustomFieldValue( $cf_name ), $cf_value, 'correct value' );
  41         push @res, $t;
  42         $total++;
  43     }
  44     return @res;
  45 }
  46
  47 sub run_tests {
  48     my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
  49     foreach my $key ( sort keys %test ) {
  50         my $tix = RT::Tickets->new($RT::SystemUser);
  51         $tix->FromSQL( "( $query_prefix ) AND ( $key )" );
  52
  53         my $error = 0;
  54
  55         my $count = 0;
  56         $count++ foreach grep $_, values %{ $test{$key} };
  57         is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1;
  58
  59         my $good_tickets = ($tix->Count == $count);
  60         while ( my $ticket = $tix->Next ) {
  61             next if $test{$key}->{ $ticket->Subject };
  62             diag $ticket->Subject ." ticket has been found when it's not expected";
  63             $good_tickets = 0;
  64         }
  65         ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1;
  66
  67         diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error;
  68     }
  69 }
  70
  71 @data = (
  72     { Subject => '-' },
  73     { Subject => 'x' },
  74     { Subject => 'y' },
  75     { Subject => 'z' },
  76 );
  77 %test = (
  78     "CF.{$cf_id} IS NULL"                 => { '-' => 1, x => 0, y => 0, z => 0 },
  79     "'CF.{$cf_name}' IS NULL"             => { '-' => 1, x => 0, y => 0, z => 0 },
  80     "'CF.$queue.{$cf_id}' IS NULL"        => { '-' => 1, x => 0, y => 0, z => 0 },
  81     "'CF.$queue.{$cf_name}' IS NULL"      => { '-' => 1, x => 0, y => 0, z => 0 },
  82
  83     "CF.{$cf_id} IS NOT NULL"             => { '-' => 0, x => 1, y => 1, z => 1 },
  84     "'CF.{$cf_name}' IS NOT NULL"         => { '-' => 0, x => 1, y => 1, z => 1 },
  85     "'CF.$queue.{$cf_id}' IS NOT NULL"    => { '-' => 0, x => 1, y => 1, z => 1 },
  86     "'CF.$queue.{$cf_name}' IS NOT NULL"  => { '-' => 0, x => 1, y => 1, z => 1 },
  87
  88     "CF.{$cf_id} = 'x'"                   => { '-' => 0, x => 1, y => 0, z => 0 },
  89     "'CF.{$cf_name}' = 'x'"               => { '-' => 0, x => 1, y => 0, z => 0 },
  90     "'CF.$queue.{$cf_id}' = 'x'"          => { '-' => 0, x => 1, y => 0, z => 0 },
  91     "'CF.$queue.{$cf_name}' = 'x'"        => { '-' => 0, x => 1, y => 0, z => 0 },
  92
  93     "CF.{$cf_id} != 'x'"                  => { '-' => 1, x => 0, y => 1, z => 1 },
  94     "'CF.{$cf_name}' != 'x'"              => { '-' => 1, x => 0, y => 1, z => 1 },
  95     "'CF.$queue.{$cf_id}' != 'x'"         => { '-' => 1, x => 0, y => 1, z => 1 },
  96     "'CF.$queue.{$cf_name}' != 'x'"       => { '-' => 1, x => 0, y => 1, z => 1 },
  97
  98     "CF.{$cf_id} = 'x' OR CF.{$cf_id} = 'y'"                        => { '-' => 0, x => 1, y => 1, z => 0 },
  99     "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' = 'y'"                => { '-' => 0, x => 1, y => 1, z => 0 },
 100     "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' = 'y'"      => { '-' => 0, x => 1, y => 1, z => 0 },
 101     "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' = 'y'"  => { '-' => 0, x => 1, y => 1, z => 0 },
 102
 103     "CF.{$cf_id} = 'x' AND CF.{$cf_id} = 'y'"                        => { '-' => 0, x => 0, y => 0, z => 0 },
 104     "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' = 'y'"                => { '-' => 0, x => 0, y => 0, z => 0 },
 105     "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' = 'y'"      => { '-' => 0, x => 0, y => 0, z => 0 },
 106     "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' = 'y'"  => { '-' => 0, x => 0, y => 0, z => 0 },
 107
 108     "CF.{$cf_id} != 'x' AND CF.{$cf_id} != 'y'"                        => { '-' => 1, x => 0, y => 0, z => 1 },
 109     "'CF.{$cf_name}' != 'x' AND 'CF.{$cf_name}' != 'y'"                => { '-' => 1, x => 0, y => 0, z => 1 },
 110     "'CF.$queue.{$cf_id}' != 'x' AND 'CF.$queue.{$cf_id}' != 'y'"      => { '-' => 1, x => 0, y => 0, z => 1 },
 111     "'CF.$queue.{$cf_name}' != 'x' AND 'CF.$queue.{$cf_name}' != 'y'"  => { '-' => 1, x => 0, y => 0, z => 1 },
 112
 113     "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NULL"                        => { '-' => 0, x => 0, y => 0, z => 0 },
 114     "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NULL"                => { '-' => 0, x => 0, y => 0, z => 0 },
 115     "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NULL"      => { '-' => 0, x => 0, y => 0, z => 0 },
 116     "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NULL"  => { '-' => 0, x => 0, y => 0, z => 0 },
 117
 118     "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NULL"                        => { '-' => 1, x => 1, y => 0, z => 0 },
 119     "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NULL"                => { '-' => 1, x => 1, y => 0, z => 0 },
 120     "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NULL"      => { '-' => 1, x => 1, y => 0, z => 0 },
 121     "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NULL"  => { '-' => 1, x => 1, y => 0, z => 0 },
 122
 123     "CF.{$cf_id} = 'x' AND CF.{$cf_id} IS NOT NULL"                        => { '-' => 0, x => 1, y => 0, z => 0 },
 124     "'CF.{$cf_name}' = 'x' AND 'CF.{$cf_name}' IS NOT NULL"                => { '-' => 0, x => 1, y => 0, z => 0 },
 125     "'CF.$queue.{$cf_id}' = 'x' AND 'CF.$queue.{$cf_id}' IS NOT NULL"      => { '-' => 0, x => 1, y => 0, z => 0 },
 126     "'CF.$queue.{$cf_name}' = 'x' AND 'CF.$queue.{$cf_name}' IS NOT NULL"  => { '-' => 0, x => 1, y => 0, z => 0 },
 127
 128     "CF.{$cf_id} = 'x' OR CF.{$cf_id} IS NOT NULL"                        => { '-' => 0, x => 1, y => 1, z => 1 },
 129     "'CF.{$cf_name}' = 'x' OR 'CF.{$cf_name}' IS NOT NULL"                => { '-' => 0, x => 1, y => 1, z => 1 },
 130     "'CF.$queue.{$cf_id}' = 'x' OR 'CF.$queue.{$cf_id}' IS NOT NULL"      => { '-' => 0, x => 1, y => 1, z => 1 },
 131     "'CF.$queue.{$cf_name}' = 'x' OR 'CF.$queue.{$cf_name}' IS NOT NULL"  => { '-' => 0, x => 1, y => 1, z => 1 },
 132
 133 );
 134 @tickets = add_tix_from_data();
 135 {
 136     my $tix = RT::Tickets->new($RT::SystemUser);
 137     $tix->FromSQL("Queue = '$queue'");
 138     is($tix->Count, $total, "found $total tickets");
 139 }
 140 run_tests();
 141
 142 exit 0;