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

[ruz at bestpractical.com]

Author: ruz
Date: Fri Oct 26 22:48:57 2007
New Revision: 9487

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

Log:
* fix number of tests and a little bug in the test

Modified: RT-Extension-SLA/t/starts.t
==============================================================================
--- RT-Extension-SLA/t/starts.t	(original)
+++ RT-Extension-SLA/t/starts.t	Fri Oct 26 22:48:57 2007
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 10;
+use Test::More tests => 9;
 
 require 't/utils.pl';
 
@@ -63,7 +63,8 @@
     my ($id) = $ticket->Create( Queue => 'General', Subject => 'xxx' );
     ok $id, "created ticket #$id";
 
-    ok $ticket->StartsObj->Unix > 0, 'Starts date is set';
+    my $starts = $ticket->StartsObj->Unix;
+    ok $starts > 0, 'Starts date is set';
     ok abs($starts - $time) < 5, 'Starts is quite correct';
 }