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
|
use strict;
use warnings;
use Test::Deep;
use RT::Test::Shredder tests => undef;
my $test = "RT::Test::Shredder";
my @ARGS = sort qw(limit status name member_of not_member_of email replace_relations no_tickets no_ticket_transactions);
use_ok('RT::Shredder::Plugin::Users');
{
my $plugin = RT::Shredder::Plugin::Users->new;
isa_ok($plugin, 'RT::Shredder::Plugin::Users');
is(lc $plugin->Type, 'search', 'correct type');
my @args = sort $plugin->SupportArgs;
cmp_deeply(\@args, \@ARGS, "support all args");
my ($status, $msg) = $plugin->TestArgs( name => 'r??t*' );
ok($status, "arg name = 'r??t*'") or diag("error: $msg");
for (qw(any disabled enabled)) {
my ($status, $msg) = $plugin->TestArgs( status => $_ );
ok($status, "arg status = '$_'") or diag("error: $msg");
}
($status, $msg) = $plugin->TestArgs( status => '!@#' );
ok(!$status, "bad 'status' arg value");
}
RT::Test->set_rights(
{ Principal => 'Everyone', Right => [qw(CreateTicket)] },
);
$test->create_savepoint('clean');
{ # Create two users and a ticket. Shred second user and replace relations with first user
my ($uidA, $uidB, $msg);
my $userA = RT::User->new( RT->SystemUser );
($uidA, $msg) = $userA->Create( Name => 'userA', Privileged => 1, Disabled => 0 );
ok( $uidA, "created user A" ) or diag "error: $msg";
my $userB = RT::User->new( RT->SystemUser );
($uidB, $msg) = $userB->Create( Name => 'userB', Privileged => 1, Disabled => 0 );
ok( $uidB, "created user B" ) or diag "error: $msg";
my ($tid, $trid);
my $ticket = RT::Ticket->new( RT::CurrentUser->new($userB) );
($tid, $trid, $msg) = $ticket->Create( Subject => 'UserB Ticket', Queue => 1 );
ok( $tid, "created new ticket") or diag "error: $msg";
$ticket->ApplyTransactionBatch;
my $transaction = RT::Transaction->new( RT->SystemUser );
$transaction->Load($trid);
is ( $transaction->Creator, $uidB, "ticket creator is user B" );
my $plugin = RT::Shredder::Plugin::Users->new;
isa_ok($plugin, 'RT::Shredder::Plugin::Users');
my $status;
($status, $msg) = $plugin->TestArgs( status => 'any', name => 'userB', replace_relations => $uidA );
ok($status, "plugin arguments are ok") or diag "error: $msg";
my $shredder = $test->shredder_new();
my @objs;
($status, @objs) = $plugin->Run;
ok($status, "executed plugin successfully") or diag "error: @objs";
@objs = RT::Shredder->CastObjectsToRecords( Objects => \@objs );
is(scalar @objs, 1, "one object in the result set");
($status, $msg) = $plugin->SetResolvers( Shredder => $shredder );
ok($status, "set conflicts resolver") or diag "error: $msg";
$shredder->PutObjects( Objects => \@objs );
$shredder->WipeoutAll;
$ticket->Load( $tid );
is($ticket->id, $tid, 'loaded ticket');
$transaction->Load($trid);
is ( $transaction->Creator, $uidA, "ticket creator is now user A" );
$shredder->Wipeout( Object => $ticket );
$shredder->Wipeout( Object => $userA );
}
cmp_deeply( $test->dump_current_and_savepoint('clean'), "current DB equal to savepoint");
{ # Same as previous test, but pass Objects to PutObjects in the same form as the web interface
my ($uidA, $uidB, $msg);
my $userA = RT::User->new( RT->SystemUser );
($uidA, $msg) = $userA->Create( Name => 'userA', Privileged => 1, Disabled => 0 );
ok( $uidA, "created user A" ) or diag "error: $msg";
my $userB = RT::User->new( RT->SystemUser );
($uidB, $msg) = $userB->Create( Name => 'userB', Privileged => 1, Disabled => 0 );
ok( $uidB, "created user B" ) or diag "error: $msg";
my ($tid, $trid);
my $ticket = RT::Ticket->new( RT::CurrentUser->new($userB) );
($tid, $trid, $msg) = $ticket->Create( Subject => 'UserB Ticket', Queue => 1 );
ok( $tid, "created new ticket") or diag "error: $msg";
$ticket->ApplyTransactionBatch;
my $transaction = RT::Transaction->new( RT->SystemUser );
$transaction->Load($trid);
is ( $transaction->Creator, $uidB, "ticket creator is user B" );
my $plugin = RT::Shredder::Plugin::Users->new;
isa_ok($plugin, 'RT::Shredder::Plugin::Users');
my $status;
($status, $msg) = $plugin->TestArgs( status => 'any', name => 'userB', replace_relations => $uidA );
ok($status, "plugin arguments are ok") or diag "error: $msg";
my $shredder = $test->shredder_new();
my @objs;
($status, @objs) = $plugin->Run;
ok($status, "executed plugin successfully") or diag "error: @objs";
# Same form as param coming in via the web interface
$shredder->PutObjects( Objects => ['RT::User-userB'] );
($status, $msg) = $plugin->SetResolvers( Shredder => $shredder );
ok($status, "set conflicts resolver") or diag "error: $msg";
$shredder->WipeoutAll;
$ticket->Load( $tid );
is($ticket->id, $tid, 'loaded ticket');
$transaction->Load($trid);
is ( $transaction->Creator, $uidA, "ticket creator is now user A" );
$shredder->Wipeout( Object => $ticket );
$shredder->Wipeout( Object => $userA );
}
cmp_deeply( $test->dump_current_and_savepoint('clean'), "current DB equal to savepoint");
done_testing();
|
