1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#!/usr/bin/perl -w
use strict;
use warnings;
use RT::Test tests => 80;
use RT::Ticket;
my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
ok $q && $q->id, 'loaded or created queue';
my ($total, @data, @tickets, %test) = (0, ());
sub add_tix_from_data {
my @res = ();
while (@data) {
my $t = RT::Ticket->new($RT::SystemUser);
my %args = %{ shift(@data) };
$args{$_} = $res[ $args{$_} ]->id foreach grep $args{$_}, keys %RT::Ticket::LINKTYPEMAP;
my ( $id, undef $msg ) = $t->Create(
Queue => $q->id,
%args,
);
ok( $id, "ticket created" ) or diag("error: $msg");
push @res, $t;
$total++;
}
return @res;
}
sub run_tests {
my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets;
foreach my $key ( sort keys %test ) {
my $tix = RT::Tickets->new($RT::SystemUser);
$tix->FromSQL( "( $query_prefix ) AND ( $key )" );
my $error = 0;
my $count = 0;
$count++ foreach grep $_, values %{ $test{$key} };
is($tix->Count, $count, "found correct number of ticket(s) by '$key'") or $error = 1;
my $good_tickets = 1;
while ( my $ticket = $tix->Next ) {
next if $test{$key}->{ $ticket->Subject };
diag $ticket->Subject ." ticket has been found when it's not expected";
$good_tickets = 0;
}
ok( $good_tickets, "all tickets are good with '$key'" ) or $error = 1;
diag "Wrong SQL query for '$key':". $tix->BuildSelectQuery if $error;
}
}
# simple set with "no links", "parent and child"
@data = (
{ Subject => '-', },
{ Subject => 'p', },
{ Subject => 'c', MemberOf => -1 },
);
@tickets = add_tix_from_data();
%test = (
'Linked IS NOT NULL' => { '-' => 0, c => 1, p => 1 },
'Linked IS NULL' => { '-' => 1, c => 0, p => 0 },
'LinkedTo IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
'LinkedTo IS NULL' => { '-' => 1, c => 0, p => 1 },
'LinkedFrom IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
'LinkedFrom IS NULL' => { '-' => 1, c => 1, p => 0 },
'HasMember IS NOT NULL' => { '-' => 0, c => 0, p => 1 },
'HasMember IS NULL' => { '-' => 1, c => 1, p => 0 },
'MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0 },
'MemberOf IS NULL' => { '-' => 1, c => 0, p => 1 },
'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0 },
'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1 },
'Linked = '. $tickets[0]->id => { '-' => 0, c => 0, p => 0 },
'Linked != '. $tickets[0]->id => { '-' => 1, c => 1, p => 1 },
'MemberOf = '. $tickets[1]->id => { '-' => 0, c => 1, p => 0 },
'MemberOf != '. $tickets[1]->id => { '-' => 1, c => 0, p => 1 },
);
{
my $tix = RT::Tickets->new($RT::SystemUser);
$tix->FromSQL("Queue = '". $q->id ."'");
is($tix->Count, $total, "found $total tickets");
}
run_tests();
# another set with tests of combinations searches
@data = (
{ Subject => '-', },
{ Subject => 'p', },
{ Subject => 'rp', RefersTo => -1 },
{ Subject => 'c', MemberOf => -2 },
{ Subject => 'rc1', RefersTo => -1 },
{ Subject => 'rc2', RefersTo => -2 },
);
@tickets = add_tix_from_data();
my $pid = $tickets[1]->id;
%test = (
'RefersTo IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
'RefersTo IS NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
'RefersTo IS NOT NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
'RefersTo IS NOT NULL AND MemberOf IS NULL' => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
'RefersTo IS NULL AND MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
'RefersTo IS NULL AND MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
'RefersTo IS NOT NULL OR MemberOf IS NOT NULL' => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 1, rc2 => 1 },
'RefersTo IS NOT NULL OR MemberOf IS NULL' => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
'RefersTo IS NULL OR MemberOf IS NOT NULL' => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 0, rc2 => 0 },
'RefersTo IS NULL OR MemberOf IS NULL' => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
"RefersTo = $pid AND MemberOf = $pid" => { '-' => 0, c => 0, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
"RefersTo = $pid AND MemberOf != $pid" => { '-' => 0, c => 0, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
"RefersTo != $pid AND MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 0, rc1 => 0, rc2 => 0 },
"RefersTo != $pid AND MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
"RefersTo = $pid OR MemberOf = $pid" => { '-' => 0, c => 1, p => 0, rp => 1, rc1 => 0, rc2 => 0 },
"RefersTo = $pid OR MemberOf != $pid" => { '-' => 1, c => 0, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
"RefersTo != $pid OR MemberOf = $pid" => { '-' => 1, c => 1, p => 1, rp => 0, rc1 => 1, rc2 => 1 },
"RefersTo != $pid OR MemberOf != $pid" => { '-' => 1, c => 1, p => 1, rp => 1, rc1 => 1, rc2 => 1 },
);
{
my $tix = RT::Tickets->new($RT::SystemUser);
$tix->FromSQL("Queue = '". $q->id ."'");
is($tix->Count, $total, "found $total tickets");
}
run_tests();
|
