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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
use strict;
use warnings;
use RT::Test tests => 44;
use RT::CustomField;
use RT::Queue;
use RT::Ticket;
use_ok 'RT::Class';
use_ok 'RT::Topic';
use_ok 'RT::Article';
my ($url, $m) = RT::Test->started_ok;
# Variables to test return values
my ($ret, $msg);
# Create a test class
my $class = RT::Class->new($RT::SystemUser);
($ret, $msg) = $class->Create('Name' => 'tlaTestClass-'.$$,
'Description' => 'A general-purpose test class');
ok($ret, "Test class created");
my $questionCF = RT::CustomField->new($RT::SystemUser);
my $answerCF = RT::CustomField->new($RT::SystemUser);
my $ticketCF = RT::CustomField->new($RT::SystemUser);
($ret, $msg) = $questionCF->Create('Name' => 'Question-'.$$,
'Type' => 'Text',
'MaxValues' => 1,
'LookupType' => 'RT::Class-RT::Article',
'Description' => 'The question to be answered',
'Disabled' => 0);
ok($ret, "Question CF created: $msg");
($ret, $msg) = $answerCF->Create('Name' => 'Answer-'.$$,
'Type' => 'Text',
'MaxValues' => 1,
'LookupType' => 'RT::Class-RT::Article',
'Description' => 'The answer to the question',
'Disabled' => 0);
ok($ret, "Answer CF created: $msg");
($ret, $msg) = $ticketCF->Create('Name' => 'Class',
'Type' => 'Text',
'MaxValues' => 1,
'LookupType' => 'RT::Queue-RT::Ticket',
'Disabled' => 0);
ok($ret, "Ticket CF 'Class' created: $msg");
# Attach the custom fields to our class
($ret, $msg) = $questionCF->AddToObject($class);
ok($ret, "Question CF added to class: $msg");
($ret, $msg) = $answerCF->AddToObject($class);
ok($ret, "Answer CF added to class: $msg");
my ($qid, $aid) = ($questionCF->Id, $answerCF->Id);
my $global_queue = RT::Queue->new($RT::SystemUser);
($ret, $msg) = $ticketCF->AddToObject($global_queue);
ok($ret, "Ticket CF added globally: $msg");
my %cvals = ('article1q' => 'Some question about swallows',
'article1a' => 'Some answer about Europe and Africa',
'article2q' => 'Another question about Monty Python',
'article2a' => 'Romani ite domum',
'article3q' => 'Why should I eat my supper?',
'article3a' => 'There are starving children in Africa',
'article4q' => 'What did Brian originally write?',
'article4a' => 'This is an answer that is longer than 255 '
. 'characters so these tests will be sure to use the LargeContent '
. 'SQL as well as the normal SQL that would be generated if this '
. 'was an answer that was shorter than 255 characters. This second '
. 'sentence has a few extra characters to get this string to go '
. 'over the 255 character boundary. Lorem ipsum.');
# Create an article or two with our custom field values.
my $article1 = RT::Article->new($RT::SystemUser);
my $article2 = RT::Article->new($RT::SystemUser);
my $article3 = RT::Article->new($RT::SystemUser);
my $article4 = RT::Article->new($RT::SystemUser);
($ret, $msg) = $article1->Create(Name => 'First article '.$$,
Summary => 'blah blah 1',
Class => $class->Id,
"CustomField-$qid" => $cvals{'article1q'},
"CustomField-$aid" => $cvals{'article1a'},
);
ok($ret, "article 1 created");
($ret, $msg) = $article2->Create(Name => 'Second article '.$$,
Summary => 'foo bar 2',
Class => $class->Id,
"CustomField-$qid" => $cvals{'article2q'},
"CustomField-$aid" => $cvals{'article2a'},
);
ok($ret, "article 2 created");
($ret, $msg) = $article3->Create(Name => 'Third article '.$$,
Summary => 'ping pong 3',
Class => $class->Id,
"CustomField-$qid" => $cvals{'article3q'},
"CustomField-$aid" => $cvals{'article3a'},
);
ok($ret, "article 3 created");
($ret, $msg) = $article4->Create(Name => 'Fourth article '.$$,
Summary => 'hoi polloi 4',
Class => $class->Id,
"CustomField-$qid" => $cvals{'article4q'},
"CustomField-$aid" => $cvals{'article4a'},
);
ok($ret, "article 4 created");
isa_ok($m, 'Test::WWW::Mechanize');
ok($m->login, 'logged in');
$m->follow_link_ok( { text => 'Articles', url_regex => qr!^/Articles/! },
'UI -> Articles' );
# In all of the search results below, the results page should
# have the summary text of the article it occurs in.
# Case sensitive search on small field.
DoArticleSearch($m, $class->Name, 'Africa');
$m->text_contains('Search results'); # Did we do a search?
$m->text_contains('blah blah 1');
# Case insensitive search on small field.
DoArticleSearch($m, $class->Name, 'africa');
$m->text_contains('Search results'); # Did we do a search?
$m->text_contains('blah blah 1');
# Case sensitive search on large field.
DoArticleSearch($m, $class->Name, 'ipsum');
$m->text_contains('Search results'); # Did we do a search?
$m->text_contains('hoi polloi 4');
# Case insensitive search on large field.
DoArticleSearch($m, $class->Name, 'lorem');
$m->text_contains('Search results'); # Did we do a search?
TODO:{
local $TODO = 'Case insensitive search on LONGBLOB not available in MySQL'
if RT->Config->Get('DatabaseType') eq 'mysql';
$m->text_contains('hoi polloi 4');
}
# When you send $m to this sub, it must be on a page with
# a Search link.
sub DoArticleSearch{
my $m = shift;
my $class_name = shift;
my $search_text = shift;
$m->follow_link_ok( {text => 'Search'}, 'Articles -> Search');
$m->follow_link_ok( {text => 'in class '. $class_name}, 'Articles in class '. $class_name);
$m->text_contains('First article');
$m->submit_form_ok( {
form_number => 2,
fields => {
'Article~' => $search_text
},
}, "Search for $search_text"
);
return;
}
|
