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
|
#!/usr/bin/perl
use strict;
use warnings;
use RT;
use RT::Test tests => '17';
# validate that when merging two tickets, the comments from both tickets
# are integrated into the new ticket
{
my $queue = RT::Queue->new($RT::SystemUser);
my ($id,$msg) = $queue->Create(Name => 'MergeTest-'.rand(25));
ok ($id,$msg);
my $t1 = RT::Ticket->new($RT::SystemUser);
my ($tid,$transid, $t1msg) =$t1->Create ( Queue => $queue->Name, Subject => 'Merge test. orig');
ok ($tid, $t1msg);
($id, $msg) = $t1->Comment(Content => 'This is a Comment on the original');
ok($id,$msg);
my $txns = $t1->Transactions;
my $Comments = 0;
while (my $txn = $txns->Next) {
$Comments++ if ($txn->Type eq 'Comment');
}
is($Comments,1, "our first ticket has only one Comment");
my $t2 = RT::Ticket->new($RT::SystemUser);
my ($t2id,$t2transid, $t2msg) =$t2->Create ( Queue => $queue->Name, Subject => 'Merge test. duplicate');
ok ($t2id, $t2msg);
($id, $msg) = $t2->Comment(Content => 'This is a commet on the duplicate');
ok($id,$msg);
$txns = $t2->Transactions;
$Comments = 0;
while (my $txn = $txns->Next) {
$Comments++ if ($txn->Type eq 'Comment');
}
is($Comments,1, "our second ticket has only one Comment");
($id, $msg) = $t1->Comment(Content => 'This is a second Comment on the original');
ok($id,$msg);
$txns = $t1->Transactions;
$Comments = 0;
while (my $txn = $txns->Next) {
$Comments++ if ($txn->Type eq 'Comment');
}
is($Comments,2, "our first ticket now has two Comments");
($id,$msg) = $t2->MergeInto($t1->id);
ok($id,$msg);
$txns = $t1->Transactions;
$Comments = 0;
while (my $txn = $txns->Next) {
$Comments++ if ($txn->Type eq 'Comment');
}
is($Comments,3, "our first ticket now has three Comments - we merged safely");
}
# when you try to merge duplicate links on postgres, eveyrything goes to hell due to referential integrity constraints.
{
my $t = RT::Ticket->new($RT::SystemUser);
$t->Create(Subject => 'Main', Queue => 'general');
ok ($t->id);
my $t2 = RT::Ticket->new($RT::SystemUser);
$t2->Create(Subject => 'Second', Queue => 'general');
ok ($t2->id);
my $t3 = RT::Ticket->new($RT::SystemUser);
$t3->Create(Subject => 'Third', Queue => 'general');
ok ($t3->id);
my ($id,$val);
($id,$val) = $t->AddLink(Type => 'DependsOn', Target => $t3->id);
ok($id,$val);
($id,$val) = $t2->AddLink(Type => 'DependsOn', Target => $t3->id);
ok($id,$val);
($id,$val) = $t->MergeInto($t2->id);
ok($id,$val);
}
|
