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
|
use strict;
use warnings;
use RT::Test tests => undef;
my $queue = RT::Test->load_or_create_queue( Name => 'General' );
my $ticket = RT::Test->create_ticket( Queue => $queue->Id, );
diag "Default PriorityAsString";
for my $field (qw/Priority InitialPriority FinalPriority/) {
is( $ticket->$field, 0, "$field is 0" );
my $string_method = $field . 'AsString';
is( $ticket->$string_method, 'Low', "$string_method is Low" );
}
diag "Disable PriorityAsString";
RT->Config->Set( 'EnablePriorityAsString', 0 );
for my $field (qw/Priority InitialPriority FinalPriority/) {
my $string_method = $field . 'AsString';
is( $ticket->$string_method, undef, "$string_method is undef" );
}
diag "Disable PriorityAsString at queue level";
RT->Config->Set( 'EnablePriorityAsString', 1 );
RT->Config->Set( 'PriorityAsString', General => 0 );
for my $field (qw/Priority InitialPriority FinalPriority/) {
my $string_method = $field . 'AsString';
is( $ticket->$string_method, undef, "$string_method is undef" );
}
diag "Specific PriorityAsString config at queue level";
RT->Config->Set(
'PriorityAsString',
Default => { Low => 0, Medium => 50, High => 100 },
General => { VeryLow => 0, Low => 20, Medium => 50, High => 100, VeryHigh => 200 },
);
for my $field (qw/Priority InitialPriority FinalPriority/) {
my $string_method = $field . 'AsString';
is( $ticket->$string_method, 'VeryLow', "$string_method is updated" );
}
diag "Update Priorities";
my ( $ret, $msg ) = $ticket->SetPriority(50);
ok( $ret, "Priority is updated" );
is( $msg, "Priority changed from 'VeryLow' to 'Medium'", 'Priority updated message' );
( $ret, $msg ) = $ticket->SetPriority('Low');
ok( $ret, "Priority is updated" );
is( $msg, "Priority changed from 'Medium' to 'Low'", 'Priority updated message' );
is( $ticket->Priority, 20, 'Priority is 20');
( $ret, $msg ) = $ticket->SetPriority('Medium');
ok( $ret, "Priority is updated" );
is( $msg, "Priority changed from 'Low' to 'Medium'", 'Priority updated message' );
is( $ticket->Priority, 50, 'Priority is 50');
( $ret, $msg ) = $ticket->SetFinalPriority(100);
ok( $ret, "FinalPriority is updated" );
is( $msg, "FinalPriority changed from 'VeryLow' to 'High'", 'FinalPriority updated message' );
diag "Queue default priorities";
( $ret, $msg ) = $queue->SetDefaultValue( Name => 'InitialPriority', Value => 20 );
ok( $ret, "InitialPriority defaulted to Low" );
is( $msg, 'Default value of InitialPriority changed from (no value) to Low', "InitialPriority updated message" );
( $ret, $msg ) = $queue->SetDefaultValue( Name => 'FinalPriority', Value => 100 );
ok( $ret, "FinalPriority defaulted to High" );
is( $msg, 'Default value of FinalPriority changed from (no value) to High', "FinalPriority updated message" );
$ticket = RT::Test->create_ticket( Queue => $queue->Id, );
is( $ticket->PriorityAsString, 'Low', 'PriorityAsString is correct' );
is( $ticket->InitialPriorityAsString, 'Low', 'InitialPriorityAsString is correct' );
is( $ticket->FinalPriorityAsString, 'High', 'FinalPriorityAsString is correct' );
diag "Explicitly set priorities on create";
$ticket = RT::Test->create_ticket( Queue => $queue->Id, InitialPriority => '50', FinalPriority => 200 );
is( $ticket->PriorityAsString, 'Medium', 'PriorityAsString is correct' );
is( $ticket->InitialPriorityAsString, 'Medium', 'InitialPriorityAsString is correct' );
is( $ticket->FinalPriorityAsString, 'VeryHigh', 'FinalPriorityAsString is correct' );
diag "Ticket/Transaction search";
for my $field (qw/Priority InitialPriority FinalPriority/) {
my $tickets = RT::Tickets->new( RT->SystemUser );
$tickets->FromSQL("Queue = 'General' AND $field = 'Low'");
like( $tickets->BuildSelectQuery(PreferBind => 0), qr/$field = '20'/, "$field is translated properly" );
my $txns = RT::Transactions->new( RT->SystemUser );
$txns->FromSQL("TicketQueue = 'General' AND Ticket$field = 'Low'");
like( $txns->BuildSelectQuery(PreferBind => 0), qr/$field = '20'/, "Ticket$field is translated properly" );
}
my $tickets = RT::Tickets->new( RT->SystemUser );
$tickets->FromSQL("Queue = 'General' AND Priority = 'Medium'");
is( $tickets->Count, 2, 'Found 2 tickets' );
while ( my $ticket = $tickets->Next ) {
is( $ticket->PriorityAsString, 'Medium', 'Priority is correct' );
}
my $txns = RT::Transactions->new( RT->SystemUser );
$txns->FromSQL("TicketQueue = 'General' AND TicketPriority = 'Medium' AND Field = 'Priority'");
is( $txns->Count, 3, 'Found 3 txn' );
my $txn = $txns->First;
is( $txn->OldValue, 0, 'OldValue is correct' );
is( $txn->NewValue, 50, 'NewValue is correct' );
done_testing;
|
