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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct 24 17:23:06 2007
New Revision: 9443

Modified:
   RT-Extension-SLA/t/starts.t

Log:
* add few tests

Modified: RT-Extension-SLA/t/starts.t
==============================================================================
--- RT-Extension-SLA/t/starts.t	(original)
+++ RT-Extension-SLA/t/starts.t	Wed Oct 24 17:23:06 2007
@@ -1,4 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+use strict;
+use warnings;
 
 use Test::More tests => 10;
 
@@ -11,7 +14,20 @@
 use_ok 'RT::Ticket';
 
 {
+    %RT::SLA = (
+        Default => 'start immediately',
+        Levels => {
+            'start immediately' => {
+                StartImmediately => 1,
+                Response => { RealMinutes => 2*60 },
+            },
+        },
+    );
+
     my $ticket = RT::Ticket->new( $RT::SystemUser );
     my ($id) = $ticket->Create( Queue => 'General', Subject => 'xxx' );
     ok $id, "created ticket #$id";
+
+    ok $ticket->StartsObj->Unix > 0, 'Starts date is set';
 }
+