rt/t/ticket/search_by_watcher.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test nodata => 1, tests => undef;
   6 use RT::Ticket;
   7
   8 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
   9 ok $q && $q->id, 'loaded or created queue';
  10 my $queue = $q->Name;
  11
  12 my ($total, @tickets, @test, @conditions) = (0, ());
  13
  14 sub generate_tix {
  15     my @list = (
  16         [],
  17         ['x@foo.com'], ['y@bar.com'], ['z@bar.com'],
  18         ['x@foo.com', 'y@bar.com'],
  19         ['y@bar.com', 'z@bar.com'],
  20         ['x@foo.com', 'z@bar.com'],
  21         ['x@foo.com', 'y@bar.com', 'z@bar.com'],
  22     );
  23     my @data = ();
  24     foreach my $r (@list) {
  25         foreach my $c (@list) {
  26             my $subject = 'r:'. (join( '', map substr($_, 0, 1), @$r ) || '-') .';';
  27             $subject .= 'c:'. (join( '', map substr($_, 0, 1), @$c ) || '-') .';';
  28
  29             push @data, {
  30                 Subject => $subject,
  31                 Requestor => $r,
  32                 Cc => $c,
  33             };
  34         }
  35     }
  36     return RT::Test->create_tickets( { Queue => $q->id }, @data );
  37 }
  38
  39 sub run_tests {
  40     while ( my ($query, $checks) = splice @test, 0, 2 ) {
  41         run_test( $query, %$checks );
  42     }
  43 }
  44
  45 sub run_test {
  46     my ($query, %checks) = @_;
  47
  48     my $tix = RT::Tickets->new(RT->SystemUser);
  49     $tix->FromSQL($query);
  50     my $error = 0;
  51
  52     my $count = 0;
  53     $count++ foreach grep $_, values %checks;
  54     is($tix->Count, $count, "found correct number of ticket(s) by '$query'") or $error = 1;
  55
  56     my $good_tickets = ($tix->Count == $count);
  57     while ( my $ticket = $tix->Next ) {
  58         next if $checks{ $ticket->Subject };
  59         diag $ticket->Subject ." ticket has been found when it's not expected";
  60         $good_tickets = 0;
  61     }
  62     ok( $good_tickets, "all tickets are good with '$query'" ) or $error = 1;
  63
  64     diag "Wrong SQL query for '$query':". $tix->BuildSelectQuery if $error;
  65 }
  66
  67 sub run_auto_tests {
  68     {
  69         my @atmp = @conditions;
  70         while ( my ($query, $cb) = splice @atmp, 0, 2 ) {
  71             my %checks = ();
  72             foreach my $ticket ( @tickets ) {
  73                 my $s = $ticket->Subject;
  74                 $checks{ $s } = $cb->($s);
  75             }
  76             run_test($query, %checks);
  77         }
  78     }
  79     my @queries = (
  80         '? AND ?'  => sub { $_[0] and $_[1] },
  81         '? OR  ?' => sub  { $_[0] or $_[1] },
  82     );
  83     while ( my ($template, $t_cb) = splice @queries, 0, 2 ) {
  84         my @atmp = @conditions;
  85         while ( my ($a, $a_cb) = splice @atmp, 0, 2 ) {
  86         my @btmp = @conditions;
  87         while ( my ($b, $b_cb) = splice @btmp, 0, 2 ) {
  88         next if $a eq $b;
  89
  90             my %checks = ();
  91             foreach my $ticket ( @tickets ) {
  92                 my $s = $ticket->Subject;
  93                 $checks{ $s } = $t_cb->( scalar $a_cb->($s), scalar $b_cb->($s) );
  94             }
  95
  96             my $query = $template;
  97             foreach my $tmp ($a, $b) {
  98                 $query =~ s/\?/$tmp/;
  99             }
 100
 101             run_test( $query, %checks );
 102         } }
 103     }
 104     return unless $ENV{'RT_TEST_HEAVY'};
 105
 106     @queries = (
 107         '? AND ? AND ?'  => sub { $_[0] and $_[1] and $_[2] },
 108         '(? OR ?) AND ?' => sub { return (($_[0] or $_[1]) and $_[2]) },
 109         '? OR (? AND ?)' => sub { $_[0] or ($_[1] and $_[2]) },
 110         '(? AND ?) OR ?' => sub { ($_[0] and $_[1]) or $_[2] },
 111         '? AND (? OR ?)' => sub { $_[0] and ($_[1] or $_[2]) },
 112         '? OR ? OR ?'    => sub { $_[0] or $_[1] or $_[2] },
 113     );
 114     while ( my ($template, $t_cb) = splice @queries, 0, 2 ) {
 115         my @atmp = @conditions;
 116         while ( my ($a, $a_cb) = splice @atmp, 0, 2 ) {
 117         my @btmp = @conditions;
 118         while ( my ($b, $b_cb) = splice @btmp, 0, 2 ) {
 119         next if $a eq $b;
 120         my @ctmp = @conditions;
 121         while ( my ($c, $c_cb) = splice @ctmp, 0, 2 ) {
 122         next if $a eq $c;
 123         next if $b eq $c;
 124
 125             my %checks = ();
 126             foreach my $ticket ( @tickets ) {
 127                 my $s = $ticket->Subject;
 128                 $checks{ $s } = $t_cb->( scalar $a_cb->($s), scalar $b_cb->($s), scalar $c_cb->($s) );
 129             }
 130
 131             my $query = $template;
 132             foreach my $tmp ($a, $b, $c) {
 133                 $query =~ s/\?/$tmp/;
 134             }
 135
 136             run_test( $query, %checks );
 137         } } }
 138     }
 139
 140 }
 141
 142 @conditions = (
 143     'Cc = "not@exist"'       => sub { 0 },
 144     'Cc != "not@exist"'      => sub { 1 },
 145     'Cc IS NULL'             => sub { $_[0] =~ /c:-;/ },
 146     'Cc IS NOT NULL'         => sub { $_[0] !~ /c:-;/ },
 147     'Cc = "x@foo.com"'       => sub { $_[0] =~ /c:[^;]*x/ },
 148     'Cc != "x@foo.com"'      => sub { $_[0] !~ /c:[^;]*x/ },
 149     'Cc LIKE "@bar.com"'     => sub { $_[0] =~ /c:[^;]*(?:y|z)/ },
 150 # TODO:
 151 #    'Cc NOT LIKE "@bar.com"' => sub { $_[0] !~ /y|z/ },
 152
 153     'Requestor = "not@exist"'   => sub { 0 },
 154     'Requestor != "not@exist"'  => sub { 1 },
 155     'Requestor IS NULL'         => sub { $_[0] =~ /r:-;/ },
 156     'Requestor IS NOT NULL'     => sub { $_[0] !~ /r:-;/ },
 157     'Requestor = "x@foo.com"'   => sub { $_[0] =~ /r:[^;]*x/ },
 158     'Requestor != "x@foo.com"'  => sub { $_[0] !~ /r:[^;]*x/ },
 159     'Requestor LIKE "@bar.com"' => sub { $_[0] =~ /r:[^;]*(?:y|z)/ },
 160 # TODO:
 161 #    'Requestor NOT LIKE "@bar.com"' => sub { $_[0] !~ /y|z/ },
 162
 163     'Watcher = "not@exist"'   => sub { 0 },
 164     'Watcher != "not@exist"'  => sub { 1 },
 165 # TODO:
 166 #    'Watcher IS NULL'         => sub { $_[0] eq 'r:-;c:-;' },
 167 #    'Watcher IS NOT NULL'     => sub { $_[0] ne 'r:-;c:-;' },
 168     'Watcher = "x@foo.com"'   => sub { $_[0] =~ /x/ },
 169 #    'Watcher != "x@foo.com"'  => sub { $_[0] !~ /x/ },
 170     'Watcher LIKE "@bar.com"' => sub { $_[0] =~ /(?:y|z)/ },
 171 # TODO:
 172 #    'Watcher NOT LIKE "@bar.com"' => sub { $_[0] !~ /y|z/ },
 173
 174     'Subject LIKE "ne"'      => sub { 0 },
 175     'Subject NOT LIKE "ne"'  => sub { 1 },
 176     'Subject = "r:x;c:y;"'   => sub { $_[0] eq 'r:x;c:y;' },
 177     'Subject LIKE "x"'       => sub { $_[0] =~ /x/ },
 178 );
 179
 180 @tickets = generate_tix();
 181 $total += scalar @tickets;
 182 {
 183     my $tix = RT::Tickets->new(RT->SystemUser);
 184     $tix->FromSQL("Queue = '$queue'");
 185     is($tix->Count, $total, "found $total tickets");
 186 }
 187 run_auto_tests();
 188
 189 # owner is special watcher because reference is duplicated in two places,
 190 # owner was an ENUM field now it's WATCHERFIELD, but should support old
 191 # style ENUM searches for backward compatibility
 192 my $nobody = RT::Nobody();
 193 {
 194     my $tix = RT::Tickets->new(RT->SystemUser);
 195     $tix->FromSQL("Queue = '$queue' AND Owner = '". $nobody->id ."'");
 196     ok($tix->Count, "found ticket(s)");
 197 }
 198 {
 199     my $tix = RT::Tickets->new(RT->SystemUser);
 200     $tix->FromSQL("Queue = '$queue' AND Owner = '". $nobody->Name ."'");
 201     ok($tix->Count, "found ticket(s)");
 202 }
 203 {
 204     my $tix = RT::Tickets->new(RT->SystemUser);
 205     $tix->FromSQL("Queue = '$queue' AND Owner != '". $nobody->id ."'");
 206     is($tix->Count, 0, "found ticket(s)");
 207 }
 208 {
 209     my $tix = RT::Tickets->new(RT->SystemUser);
 210     $tix->FromSQL("Queue = '$queue' AND Owner != '". $nobody->Name ."'");
 211     is($tix->Count, 0, "found ticket(s)");
 212 }
 213
 214 {
 215     my $tix = RT::Tickets->new(RT->SystemUser);
 216     $tix->FromSQL("Queue = '$queue' AND Owner.Name LIKE 'nob'");
 217     ok($tix->Count, "found ticket(s)");
 218 }
 219
 220 {
 221     # create ticket and force type to not a 'ticket' value
 222     # bug #6898@rt3.fsck.com
 223     # and http://marc.theaimsgroup.com/?l=rt-devel&m=112662934627236&w=2
 224     my($t) = RT::Test->create_tickets( { Queue => $q->id }, { Subject => 'not a ticket' } );
 225     $t->_Set( Field             => 'Type',
 226               Value             => 'not a ticket',
 227               CheckACL          => 0,
 228               RecordTransaction => 0,
 229             );
 230
 231     my $tix = RT::Tickets->new(RT->SystemUser);
 232     $tix->FromSQL("Queue = '$queue' AND Owner = 'Nobody'");
 233     is($tix->Count, $total, "found ticket(s)");
 234 }
 235
 236 {
 237     my $everyone = RT::Group->new( RT->SystemUser );
 238     $everyone->LoadSystemInternalGroup('Everyone');
 239     ok($everyone->id, "loaded 'everyone' group");
 240     my($id, $msg) = $everyone->PrincipalObj->GrantRight( Right => 'OwnTicket',
 241                                                          Object => $q
 242                                                        );
 243     ok($id, "granted OwnTicket right to Everyone on '$queue'") or diag("error: $msg");
 244
 245     my $u = RT::User->new( RT->SystemUser );
 246     $u->LoadOrCreateByEmail('alpha@e.com');
 247     ok($u->id, "loaded user");
 248     my($t) = RT::Test->create_tickets(
 249         { Queue => $q->id }, { Subject => '4', Owner => $u->id },
 250     );
 251     my $u_alpha_id = $u->id;
 252
 253     $u = RT::User->new( RT->SystemUser );
 254     $u->LoadOrCreateByEmail('bravo@e.com');
 255     ok($u->id, "loaded user");
 256     ($t) = RT::Test->create_tickets(
 257         { Queue => $q->id }, { Subject => '5', Owner => $u->id },
 258     );
 259     my $u_bravo_id = $u->id;
 260
 261     my $tix = RT::Tickets->new(RT->SystemUser);
 262     $tix->FromSQL("Queue = '$queue' AND
 263                    ( Owner = '$u_alpha_id' OR
 264                      Owner = '$u_bravo_id' )"
 265                  );
 266     is($tix->Count, 2, "found ticket(s)");
 267 }
 268
 269 @tickets = ();
 270 done_testing();