[Bps-public-commit] r9492 - RT-Extension-SLA/t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Oct 27 16:08:30 2007
New Revision: 9492

Added:
   RT-Extension-SLA/t/queue.t

Log:
added default queue sla  test

Added: RT-Extension-SLA/t/queue.t
==============================================================================
--- (empty file)
+++ RT-Extension-SLA/t/queue.t	Sat Oct 27 16:08:30 2007
@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 9;
+
+require 't/utils.pl';
+
+use_ok 'RT';
+RT::LoadConfig();
+RT::Init();
+
+use_ok 'RT::Ticket';
+use_ok 'RT::Extension::SLA';
+
+my $queue = RT::Queue->new($RT::SystemUser);
+$queue->Load('General');
+
+my $queue_sla = RT::Attribute->new($RT::SystemUser);
+
+diag 'check set of Due date with Queue default SLA';
+{
+
+    # 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::SLA = (
+        Default => '2',
+        Levels  => {
+            '2' => { Resolve => { RealMinutes => 60 * 2 } },
+            '4' => { Resolve => { RealMinutes => 60 * 4 } },
+        },
+    );
+
+    my $time = time;
+
+    my $ticket = RT::Ticket->new($RT::SystemUser);
+    ($id) = $ticket->Create( Queue => 'General', Subject => 'xxx' );
+    ok $id, "created ticket #$id";
+
+    is $ticket->FirstCustomFieldValue('SLA'), '4', 'default sla';
+
+    my $orig_due = $ticket->DueObj->Unix;
+    ok $orig_due > 0, 'Due date is set';
+    ok $orig_due > $time, 'Due date is in the future';
+
+    my ( $status, $message ) = $queue->DeleteAttribute('SLA');
+    ok( $status, $message );
+}
+