rt/t/shredder/01ticket.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::Deep;
   6 use File::Spec;
   7 use Test::More tests => 15 + 1; # plus one for warnings check
   8 use RT::Test ();
   9
  10
  11 BEGIN {
  12     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
  13         File::Spec->curdir());
  14     require $shredder_utils;
  15 }
  16
  17 init_db();
  18 create_savepoint('clean');
  19
  20 use RT::Ticket;
  21 use RT::Tickets;
  22
  23 {
  24     my $ticket = RT::Ticket->new( RT->SystemUser );
  25     my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
  26     ok( $id, "created new ticket" );
  27     $ticket->Delete;
  28     is( $ticket->Status, 'deleted', "successfuly changed status" );
  29
  30     my $tickets = RT::Tickets->new( RT->SystemUser );
  31     $tickets->{'allow_deleted_search'} = 1;
  32     $tickets->LimitStatus( VALUE => 'deleted' );
  33     is( $tickets->Count, 1, "found one deleted ticket" );
  34
  35     my $shredder = shredder_new();
  36     $shredder->PutObjects( Objects => $tickets );
  37     $shredder->WipeoutAll;
  38 }
  39 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  40
  41 {
  42     my $parent = RT::Ticket->new( RT->SystemUser );
  43     my ($pid) = $parent->Create( Subject => 'test', Queue => 1 );
  44     ok( $pid, "created new ticket" );
  45     create_savepoint('parent_ticket');
  46
  47     my $child = RT::Ticket->new( RT->SystemUser );
  48     my ($cid) = $child->Create( Subject => 'test', Queue => 1 );
  49     ok( $cid, "created new ticket" );
  50
  51     my ($status, $msg) = $parent->AddLink( Type => 'MemberOf', Target => $cid );
  52     ok( $status, "Added link between tickets") or diag("error: $msg");
  53     my $shredder = shredder_new();
  54     $shredder->PutObjects( Objects => $child );
  55     $shredder->WipeoutAll;
  56     cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
  57
  58     $shredder->PutObjects( Objects => $parent );
  59     $shredder->WipeoutAll;
  60 }
  61 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  62
  63 {
  64     my $parent = RT::Ticket->new( RT->SystemUser );
  65     my ($pid) = $parent->Create( Subject => 'test', Queue => 1 );
  66     ok( $pid, "created new ticket" );
  67     my ($status, $msg) = $parent->Delete;
  68     ok( $status, 'deleted parent ticket');
  69     create_savepoint('parent_ticket');
  70
  71     my $child = RT::Ticket->new( RT->SystemUser );
  72     my ($cid) = $child->Create( Subject => 'test', Queue => 1 );
  73     ok( $cid, "created new ticket" );
  74
  75     ($status, $msg) = $parent->AddLink( Type => 'DependsOn', Target => $cid );
  76     ok( $status, "Added link between tickets") or diag("error: $msg");
  77     my $shredder = shredder_new();
  78     $shredder->PutObjects( Objects => $child );
  79     $shredder->WipeoutAll;
  80
  81   TODO: {
  82         local $TODO = "Shredder doesn't delete all links and transactions";
  83         cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
  84     }
  85
  86     $shredder->PutObjects( Objects => $parent );
  87     $shredder->WipeoutAll;
  88 }
  89 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");