6 use RT::Test tests => 80;
9 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
10 ok $q && $q->id, 'loaded or created queue';
12 my ($total, @data, @tickets, %test) = (0, ());
14 sub add_tix_from_data {
17 my $t = RT::Ticket->new($RT::SystemUser);
18 my %args = %{ shift(@data) };
19 $args{$_} = $res[ $args{$_} ]->id foreach grep $args{$_}, keys %RT::Ticket::LINKTYPEMAP;
20 my ( $id, undef $msg ) = $t->Create(
24 ok( $id, "ticket created" ) or diag("error: $msg");
32 my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
33 foreach my $key ( sort keys %test ) {
34 my $tix = RT::Tickets->new($RT::SystemUser);
35 $tix->FromSQL( "( $query_prefix ) AND ( $key )" );
40 $count++ foreach grep $_, values %{ $test{$key} };
41 is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1;
44 while ( my $ticket = $tix->Next ) {
45 next if $test{$key}->{ $ticket->Subject };
46 diag $ticket->Subject ." ticket has been found when it's not expected";
49 ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1;
51 diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error;
55 # simple set with "no links", "parent and child"
59 { Subject => 'c', MemberOf => -1 },
61 @tickets = add_tix_from_data();
63 'Linked IS NOT NULL' => { '-' => 0, c => 1, p => 1 },
64 'Linked IS NULL' => { '-' => 1, c => 0, p => 0 },
65 'LinkedTo IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
66 'LinkedTo IS NULL' => { '-' => 1, c => 0, p => 1 },
67 'LinkedFrom IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
68 'LinkedFrom IS NULL' => { '-' => 1, c => 1, p => 0 },
70 'HasMember IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
71 'HasMember IS NULL' => { '-' => 1, c => 1, p => 0 },
72 'MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
73 'MemberOf IS NULL' => { '-' => 1, c => 0, p => 1 },
75 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0 },
76 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1 },
78 'Linked = '. $tickets[0]->id => { '-' => 0, c => 0, p => 0 },
79 'Linked != '. $tickets[0]->id => { '-' => 1, c => 1, p => 1 },
81 'MemberOf = '. $tickets[1]->id => { '-' => 0, c => 1, p => 0 },
82 'MemberOf != '. $tickets[1]->id => { '-' => 1, c => 0, p => 1 },
85 my $tix = RT::Tickets->new($RT::SystemUser);
86 $tix->FromSQL("Queue = '". $q->id ."'");
87 is($tix->Count, $total, "found $total tickets");
91 # another set with tests of combinations searches
95 { Subject => 'rp', RefersTo => -1 },
96 { Subject => 'c', MemberOf => -2 },
97 { Subject => 'rc1', RefersTo => -1 },
98 { Subject => 'rc2', RefersTo => -2 },
100 @tickets = add_tix_from_data();
101 my $pid = $tickets[1]->id;
103 'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
104 'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
106 'RefersTo IS NOT NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
107 'RefersTo IS NOT NULL AND MemberOf IS NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
108 'RefersTo IS NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
109 'RefersTo IS NULL AND MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
111 'RefersTo IS NOT NULL OR MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
112 'RefersTo IS NOT NULL OR MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
113 'RefersTo IS NULL OR MemberOf IS NOT NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
114 'RefersTo IS NULL OR MemberOf IS NULL' => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
116 "RefersTo = $pid AND MemberOf = $pid" => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
117 "RefersTo = $pid AND MemberOf != $pid" => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
118 "RefersTo != $pid AND MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
119 "RefersTo != $pid AND MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
121 "RefersTo = $pid OR MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
122 "RefersTo = $pid OR MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
123 "RefersTo != $pid OR MemberOf = $pid" => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
124 "RefersTo != $pid OR MemberOf != $pid" => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
127 my $tix = RT::Tickets->new($RT::SystemUser);
128 $tix->FromSQL("Queue = '". $q->id ."'");
129 is($tix->Count, $total, "found $total tickets");