[Rt-commit] r10697 - rt/branches/3.999-DANGEROUS/t/shredder

[ruz at bestpractical.com]

Author: ruz
Date: Sun Feb  3 17:29:59 2008
New Revision: 10697

Modified:
   rt/branches/3.999-DANGEROUS/t/shredder/01ticket.t

Log:
* fix t/shredder/01ticket.t

Modified: rt/branches/3.999-DANGEROUS/t/shredder/01ticket.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/shredder/01ticket.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/shredder/01ticket.t	Sun Feb  3 17:29:59 2008
@@ -19,7 +19,7 @@
     my $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     my ($id) = $ticket->create( subject => 'test', queue => 1 );
     ok( $id, "Created new ticket" );
-    $ticket->delete;
+    $ticket->set_status('deleted');
     is( $ticket->status, 'deleted', "successfuly changed status" );
 
     my $tickets = RT::Model::TicketCollection->new(current_user => RT->system_user );
@@ -59,7 +59,7 @@
     my $parent = RT::Model::Ticket->new(current_user => RT->system_user );
     my ($pid) = $parent->create( subject => 'test', queue => 1 );
     ok( $pid, "Created new ticket" );
-    my ($status, $msg) = $parent->delete;
+    my ($status, $msg) = $parent->set_status('deleted');
     ok( $status, 'deleted parent ticket');
     create_savepoint('parent_ticket');