5 use RT::Test nodata => 1, tests => 100;
8 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
9 ok $q && $q->id, 'loaded or created queue';
11 my ($total, @tickets, %test) = (0, ());
14 my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
15 foreach my $key ( sort keys %test ) {
16 my $tix = RT::Tickets->new(RT->SystemUser);
17 $tix->FromSQL( "( $query_prefix ) AND ( $key )" );
22 $count++ foreach grep $_, values %{ $test{$key} };
23 is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1;
26 while ( my $ticket = $tix->Next ) {
27 next if $test{$key}->{ $ticket->Subject };
28 diag $ticket->Subject ." ticket has been found when it's not expected";
31 ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1;
33 diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error;
37 # simple set with "no links", "parent and child"
38 @tickets = RT::Test->create_tickets(
42 { Subject => 'c', MemberOf => -1 },
46 'Linked IS NOT NULL' => { '-' => 0, c => 1, p => 1 },
47 'Linked IS NULL' => { '-' => 1, c => 0, p => 0 },
48 'LinkedTo IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
49 'LinkedTo IS NULL' => { '-' => 1, c => 0, p => 1 },
50 'LinkedFrom IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
51 'LinkedFrom IS NULL' => { '-' => 1, c => 1, p => 0 },
53 'HasMember IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
54 'HasMember IS NULL' => { '-' => 1, c => 1, p => 0 },
55 'MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
56 'MemberOf IS NULL' => { '-' => 1, c => 0, p => 1 },
58 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0 },
59 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1 },
61 'Linked = '. $tickets[0]->id => { '-' => 0, c => 0, p => 0 },
62 'Linked != '. $tickets[0]->id => { '-' => 1, c => 1, p => 1 },
64 'MemberOf = '. $tickets[1]->id => { '-' => 0, c => 1, p => 0 },
65 'MemberOf != '. $tickets[1]->id => { '-' => 1, c => 0, p => 1 },
68 my $tix = RT::Tickets->new(RT->SystemUser);
69 $tix->FromSQL("Queue = '". $q->id ."'");
70 is($tix->Count, $total, "found $total tickets");
74 # make sure search by id is on LocalXXX columns
76 my $tickets = RT::Tickets->new( RT->SystemUser );
77 $tickets->FromSQL('MemberOf = '. $tickets[0]->id);
78 like $tickets->BuildSelectQuery, qr/LocalBase/;
79 like $tickets->BuildSelectQuery, qr/LocalTarget/;
82 # another set with tests of combinations searches
83 @tickets = RT::Test->create_tickets(
87 { Subject => 'rp', RefersTo => -1 },
88 { Subject => 'c', MemberOf => -2 },
89 { Subject => 'rc1', RefersTo => -1 },
90 { Subject => 'rc2', RefersTo => -2 },
93 my $pid = $tickets[1]->id;
95 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
96 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
98 'RefersTo IS NOT NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
99 'RefersTo IS NOT NULL AND MemberOf IS NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
100 'RefersTo IS NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
101 'RefersTo IS NULL AND MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
103 'RefersTo IS NOT NULL OR MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
104 'RefersTo IS NOT NULL OR MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
105 'RefersTo IS NULL OR MemberOf IS NOT NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
106 'RefersTo IS NULL OR MemberOf IS NULL' => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
108 "RefersTo = $pid AND MemberOf = $pid" => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
109 "RefersTo = $pid AND MemberOf != $pid" => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
110 "RefersTo != $pid AND MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
111 "RefersTo != $pid AND MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
113 "RefersTo = $pid OR MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
114 "RefersTo = $pid OR MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
115 "RefersTo != $pid OR MemberOf = $pid" => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
116 "RefersTo != $pid OR MemberOf != $pid" => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
119 my $tix = RT::Tickets->new(RT->SystemUser);
120 $tix->FromSQL("Queue = '". $q->id ."'");
121 is($tix->Count, $total, "found $total tickets");