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
|
#!/usr/bin/perl
use strict;
use warnings;
use RT::Test tests => 23;
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' => 'Romanes eunt domus');
# 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' );
$m->follow_link_ok( {text => 'Search'}, 'Articles -> Search');
$m->follow_link_ok( {text => 'in class '.$class->Name}, 'Articles in class '.$class->Name);
$m->content_contains($article1->Name);
|
