[Rt-commit] r6105 - RT-Extension-TicketAging/t

[ruz at bestpractical.com]

Author: ruz
Date: Thu Sep 28 22:08:42 2006
New Revision: 6105

Modified:
   RT-Extension-TicketAging/t/07.reopen.t

Log:
* rewrite test a little

Modified: RT-Extension-TicketAging/t/07.reopen.t
==============================================================================
--- RT-Extension-TicketAging/t/07.reopen.t	(original)
+++ RT-Extension-TicketAging/t/07.reopen.t	Thu Sep 28 22:08:42 2006
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More qw(no_plan);
+use Test::More tests => 6;
 
 BEGIN { require 't/utils.pl' }
 RT::Init();
@@ -11,21 +11,20 @@
 verbose("Reopening a finished ticket should reactivate it");
 {
     my $ticket = RT::Ticket->new( $RT::SystemUser );
-    ok $ticket->Create( Queue => 'General', Status => 'resolved' );
+    ok my ($id) = $ticket->Create( Queue => 'General', Status => 'resolved' );
 
     run_exec_ok;
 
-    $ticket->Load($ticket->id);
+    $ticket->Load( $id );
     is $ticket->FirstCustomFieldValue("Age"), 'Finished';
 
     # reopen
     $ticket->_Set( Field => 'Status', Value => 'open' );
 
-    $ticket->Load($ticket->id);
     is $ticket->FirstCustomFieldValue("Age"), 'Active';
 
     run_exec_ok;
 
-    $ticket->Load($ticket->id);
+    $ticket->Load( $id );
     is $ticket->FirstCustomFieldValue("Age"), 'Active';
 }