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
|
use strict;
use warnings;
use Test::MockTime qw( :all );
use RT::Test tests => undef;
my $queue = RT::Test->load_or_create_queue( Name => 'General', SLADisabled => 0 );
my $queue_sla = RT::Attribute->new($RT::SystemUser);
diag 'check set of Due date with Queue default SLA' if $ENV{'TEST_VERBOSE'};
{
# add default SLA for 'General';
my ($id) = $queue_sla->Create(
Name => 'SLA',
Description => 'Default Queue SLA',
Content => '4',
Object => $queue
);
ok( $id, 'Created SLA Attribute for General' );
RT->Config->Set(ServiceAgreements => (
Default => '2',
Levels => {
'2' => { Resolve => { RealMinutes => 60 * 2 } },
'4' => { StartImmediately => 1, Resolve => { RealMinutes => 60 * 4 } },
},
));
set_fixed_time('2007-01-01T00:00:00Z');
my $time = time;
my $ticket = RT::Ticket->new($RT::SystemUser);
($id) = $ticket->Create( Queue => 'General', Subject => 'xxx' );
ok( $id, "created ticket #$id" );
is $ticket->SLA, '4', 'default sla';
my $start = $ticket->StartsObj->Unix;
my $due = $ticket->DueObj->Unix;
is( $start, $time, 'Start Date is right' );
is( $due, $time+3600*4, 'Due date is right');
my ( $status, $message ) = $queue->DeleteAttribute('SLA');
ok( $status, $message );
}
done_testing;
|
