[Rt-commit] r10704 - in rt/branches/3.999-DANGEROUS: t/shredder

[ruz at bestpractical.com]

Author: ruz
Date: Sun Feb  3 18:25:50 2008
New Revision: 10704

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Tickets.pm
   rt/branches/3.999-DANGEROUS/t/shredder/03plugin_tickets.t

Log:
* fix t/shredder/03plugin_tickets.t

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Tickets.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Tickets.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Tickets.pm	Sun Feb  3 18:25:50 2008
@@ -135,7 +135,7 @@
     my $self  = shift;
     my %arg   = @_;
     my @res   = ();
-    my $query = 'Linked = ' . $arg{'object'}->id;
+    my $query = 'linked = ' . $arg{'object'}->id;
     if ( $self->{'opt'}{'apply_query_to_linked'} ) {
         $query .= " AND ( " . $self->{'opt'}{'query'} . " )";
     }
@@ -145,7 +145,7 @@
     $objs->from_sql($query);
     $self->fetch_next( $objs, 1 );
     while ( my $linked_obj = $self->fetch_next($objs) ) {
-        next if $arg{'Seen'}->{ $linked_obj->id }++;
+        next if $arg{'seen'}->{ $linked_obj->id }++;
         push @res, $self->get_linked( %arg, object => $linked_obj );
         push @res, $linked_obj;
     }

Modified: rt/branches/3.999-DANGEROUS/t/shredder/03plugin_tickets.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/shredder/03plugin_tickets.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/shredder/03plugin_tickets.t	Sun Feb  3 18:25:50 2008
@@ -28,7 +28,7 @@
     ok( $pid, "Created new ticket" );
 
     my $child = RT::Model::Ticket->new(current_user => RT->system_user );
-    my ($cid) = $child->create( subject => 'child', queue => 1, member_of => $pid );
+    my ($cid) = $child->create( subject => 'child', queue => 1, MemberOf => $pid );
     ok( $cid, "Created new ticket" );
 
     my $plugin = RT::Shredder::Plugin::Tickets->new;
@@ -67,7 +67,7 @@
     ok( $pid, "Created new ticket" );
 
     my $child = RT::Model::Ticket->new(current_user => RT->system_user );
-    my ($cid) = $child->create( subject => 'child', queue => 1, member_of => $pid );
+    my ($cid) = $child->create( subject => 'child', queue => 1, MemberOf => $pid );
     ok( $cid, "Created new ticket" );
 
     my ($status, $msg) = $child->add_link( target => $pid, type => 'DependsOn' );
@@ -109,10 +109,10 @@
     ok( $pid, "Created new ticket" );
 
     my $child1 = RT::Model::Ticket->new(current_user => RT->system_user );
-    my ($cid1) = $child1->create( subject => 'child', queue => 1, member_of => $pid );
+    my ($cid1) = $child1->create( subject => 'child', queue => 1, MemberOf => $pid );
     ok( $cid1, "Created new ticket" );
     my $child2 = RT::Model::Ticket->new(current_user => RT->system_user );
-    my ($cid2) = $child2->create( subject => 'child', queue => 1, member_of => $pid, status => 'resolved' );
+    my ($cid2) = $child2->create( subject => 'child', queue => 1, MemberOf => $pid, status => 'resolved' );
     ok( $cid2, "Created new ticket" );
 
     my $plugin = RT::Shredder::Plugin::Tickets->new;